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Vorwort 


Das Wegweiser-Buch führt zum erfolgreichen Einsatz von Computern des 
Typs Schneider CPC (wie z.B. CPC 464, CPC 664, CPC 6128), die in BASIC 
programmiert werden. 

Das Wegweiser-Buch vermittelt aktuelles Grundlagenwissen zur Datenverar- 
beitung: 

— Was ist Hardware, Software und Firmware? 

— Was sind Großcomputer und Mikrocomputer? 

— Was sind Datenstrukturen und Programmstrukturen? 

— Was sind Betriebssysteme und Anwenderprogramme? 

— Was heißt „fertige Programm-Pakete einsetzen’’? 

— Was bedeutet ‚‚eigenes‘’ Programmieren? 


Das Wegweiser-Buch gibt eine erste Anleitung: 


— Wie erstellt man das erste Programm in Schneider BASIC? 

— Welche Datentypen und Anweisungen umfaßt Schneider BASIC? 
— Wie bedient man den Schneider CPC unter CP/M? 

— Wie laufen die Betriebssysteme AMSDOS, CP/M bzw. MS-DOS? 


Das Wegweiser-Buch enthält einen kompletten Programmierkurs in Schneider 
BASIC mit grundlegenden Anwendungen wie: 


— Programme mit Schleifen und Unterprogrammen 

— Text-, Tabellen- und Grafikverarbeitung 

— Formen der Tastatureingabe und Druckausgabe 

— Maschinennahe Programmierung 

— Suchen, Sortieren, Mischen und Gruppieren von Daten 

— Sequentielle, direkte/random, index-sequentielle und verkettete 
Organisation einer Datei 

— Datei mit zeigerverketteter Liste und binärem Baum. 


Auf die Grafik- und Sound-Möglichkeiten des Schneider CPC wird nur am 
Rande eingegangen. Im Wegweiser-Buch wird der Schwerpunkt auf die An- 
wendung der Informatik-Grundlagen und auf die Verarbeitung größerer 
Datenmengen gelegt; dies geschieht im Hinblick auf eine professionelle 
Nutzung des Schneider CPC. 

Das Wegweiser-Buch soll die vom Hersteller gelieferten Handbücher keines- 
falls ersetzen, sondern ergänzen: es beschreibt die Grundlagen der Datenver- 
arbeitung, um sie an zahlreichen Beispielen für den Schneider CPC zu de- 
monstrieren und zu veranschaulichen. 


VI Vorwort 


In seinem didaktischen Aufbau kommt das Wegweiser-Buch damit dem 
assoziativen Denken des menschlichen Gehirns entgegen, das sich lieber an 
Zusammenhänge und Problemkreise erinnert als an die im Handbuch „‚lexi- 
konähnlich”’ dargestellten Befehle. 


Im Wegweiser-Buch werden für alle 86 Programmbeispiele das BASIC-Listing 
(LIST) und die zugehörige Ausführung (RUN) wiedergegeben und aus- 
führlich erklärt. 

Die Abschnitte 2 und 3 des Wegweiser-Buches bauen aufeinander auf und 
sollten in dieser Abfolge gelesen werden. Abschnitt 1 hingegen kann parallel 
hierzu bearbeitet werden. 


Abschnitt 2: 
BEDIENUNG DES SCHNEIDER CPC 


Abschnitt 1: 


COMPUTER 

ALLGEMEIN Abschnitt 3: 
PROGRAMMIERKURS 
mit SCHNEIDER BASIC 


Das Wegweiser-Buch läßt sich auch als Nachschlagewerk benutzen. Aus 
diesem Grunde wurden das Inhaltsverzeichnis wie auch das Sachwortver- 
zeichnis sehr detailliert aufgegliedert. 


Heidelberg, Frühjahr 1986 Ekkehard Kaier 
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Computer allgemein 


2 1 Computer allgemein 


1.1 Computer = Hardware + Software + Firmware 


1.1.1 Überblick 


Jeder Computer besteht aus Hardware (harter Ware), aus Soft- 
ware (weicher Ware) und aus Firmware (fester Ware). Dies gilt 
für Mikro- und Personalcomputer ebenso wie für Großcomputer. 


Die Hardware umfaßt alles das, was man anfassen kann: 
Geräte einerseits und Datenträger andererseits. Das wichtigste 
Gerät ist die Zentraleinheit bzw. CPU (für Central Processing 
Unit), mit der periphere Einheiten als Randeinheiten verbunden 
sind; so z.B. eine Tastatur zur Eingabe der Daten von Hand, 
ein Drucker zur Ausgabe der Resultate schwarz auf weiß und ei- 
ne Disketteneinheit zur langfristigen Speicherung von Daten 
auf einer Diskette als Datenträger außerhalb der CPU. 


Hardware 
Geräte, Einheiten: Datenträger: 


zentraleinheit Periphere Einheiten z.B. Diskette, Kassette, 
bzw. CPU wie Disketteneinheit, Magnetplatte, Magnet- 
Tastatur, Drucker band, Winchesterplatte 


Die Hardware als harte Ware kann man anfassen 


Die Sof t wa r e als zweite Komponente des Computers kann 
man im Gegensatz zur Hardware nicht anfassen. Software bedeu- 
tet soviel wie Information; sie umfaßt die Daten und auch die 
Programme als Vorschriften zur Verarbeitung dieser Daten. Ist 
die Hardware als festverdrahtete Elektronik des Computers fest 
und vom Benutzer nicht (ohne weiteres) änderbar, dann gilt für 
die Software genau das Gegenteil: Jeder Benutzer kann Programm 
wie Daten verändern, austauschen, ergänzen und auch zerstören. 


Software 
rer] 
Deast seen: BETRORGIErTE amNanere 
Objekte der Geordnete Folge 
Datenverarbeitung von Anweisungen 
(wa s wird verarbeitet?) (w ie ist zu verarbeiten?) 


Die Software als weiche Ware kann man nicht anfassen 


Die Firmware als dritte Komponente des Computers kann 
man der Hardware oder der Software zuordnen. Sie ist deshalb 
wie ein 'Zwitter' halb Hardware und halb Software. So ist z.B. 
das Rechenprogramm jedes Taschenrechners in einem speziellen 
Speicher ROM (Read Only Memory als Nur-Lese-Speicher) enthal- 
ten. Der Benutzer kann dieses Programm zwar laufen lassen und 
Information entnehmen und lesen (read), nicht jedoch abändern. 
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Für den Benutzer ist es wie Hardware fest. Für den Hersteller 
des ROMs hingegen stellt es sich wie Software veränderbar dar, 
da er den Speicher ROM ja programmieren kann und muß. 

Ein anderes Beispiel: Für viele Mikrocomputer werden Module 
mit fest im ROM gespeicherten Programmen bis zu 30.000 Zeichen 
angeboten; der Anwender steckt ein Modul in den Eingabeschacht 
seines Computers und befindet sich sogleich im Programm. Er 
kann dieses Programm als Firmware zwar laufen lassen bzw. aus- 
führen, nicht aber umprogrammieren und verändern. 

Mit der Mikrotechnologie, mit dem Chip und dem IC (Integrated 
Circuit für Integrierter Schaltkreis) hat die Firmware immer 
mehr an Bedeutung gewonnen. 


Die Hardware (fest verdrahtete Elektronik), die Software (frei 
änderbare Daten und Programme) und die Firmware (hart für den 
Benutzer und weich für den Hersteller) stellen die drei 
grundlegenden Komponenten jedes Computers dar. 
Darüberhinaus gibt es weitere ....ware: so die Orgware (Or- 
ganisation von Aufbau und Ablauf), die Menware (Personen), 
die Brainware (geistige Leistungen) und die Teachware (Lehren 

und Lernen). 


1.1.2 Kosten für die Computerleistung 


Leistung bedeutet Arbeit pro Zeiteinheit. Bestand die Arbeit 
des Computers früher im Rechnen, also im Umgang mit Zahlen 
(Computer heißt wörtlich Rechner), so wird sie heute ergänzt 
durch das Verarbeiten von Text allgemein. Die Zeiten werden 
immer kürzer: so arbeiten Computer heute 200mal schneller als 
vor 25 Jahren (Nanosekundenbereich, 1-milliardstel Sekunde). 


Betrachtet man die Entwicklung der Computerkosten, so ist ein 
zunehmendes Absinken der Kosten für die Hardware gegenüber 
den Kosten für die Software festzustellen. Zwei Gründe dafür: 
Einerseits verbilligt sich die Hardware immer mehr, sei es 
durch die Massenproduktion, sei es durch Fortschritte in der 
Mikrotechnologie. Bei entsprechender Entwicklung anderer In- 
dustriezweige dürfte ein VW-Käfer nicht mehr als 50 DM kosten 
und eine Boeing 767 nicht mehr als 1500 DM. 

Andererseits verteuert sich die Software mehr und mehr,sei es 
durch die Personalkostenintensität (Gehälter für Programment- 
wicklung, -pflege u. -wartung), sei es durch das immer höhere 
Anspruchsniveau (Erfolgsrechnung heute bereits allwöchentlich 
und früher nur einmal im Jahr zum Jahresabschluß). 

Man spricht schon von einer Kostenrelation von '20% für Hard- 
ware' gegenüber '80% für Software'. 


1.1.3 Geschichtliche Entwicklung des Computers 


Erst 1941 stellte der deutsche Ingenieur Konrad Zuse erstmals 
einen richtigen Computer vor und 1952 wurde erstmals ein Com- 
puter an ein pivates Wirtschaftsunternehmen in der BRD ausge- 
liefert. In den 60er Jahren begann die Zeit der Großcomputer 
und damit der System-Familien wie IBM/360 oder Siemens 4004. 
Die 70er Jahre wurden geprägt von der Mikrotechnologie und 
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damit vom Mikrocomputer: die Hardware wurde immer kompakter, 

schneller und preiswerter. 

Zu Beginn der 80er Jahre hat man sich an den Preisverfall der 

Hardware gewöhnt. Wen wundert es noch, daß Hardware-Preise im 
Jahr um 25% - 40% sinken? Das Interesse verlagert sich mehr 

und mehr auf die Software: Die Qualität der Programme wird 

zum entscheidenden Problem der heutigen Datenverarbeitung. 

Und in den 90er Jahren ....? Längst wird nicht mehr gelächelt 

über "intelligente" Computer,die ähnlich dem menschlichen Ge- 

hirn selbständig Probleme lösen. Die "künstliche Intelligenz" 

(abgekürzt KI) ist vor allem in Japan und den USA auf dem Vor- 
marsch. Ein japanischer Anbieter hat bereits angekündigt, bis 
1992 das erste marktreife Produkt herauszubringen. 


1.2 Hardware = Geräte + Datenträger 


1.2.1 Hardware im Überblick 
1.2.1.1 Fünf Arten peripherer Geräte bzw. Einheiten 


Um die Zentraleinheit bzw. CPU herum können bis zu fünf ver- 
verschiedene periphere Einheiten gruppiert sein: 


DIALOGGERÄTE: 

Datensichtgerät, 

Terminal 
EINGABEGERÄTE: AUSGABEGERÄTE: 
Tastatur, Zentraleinheit Bildschirm, 
Lochkartenleser, . CZPZU, Drucker, 
Belegleser Lochkartenstanzer, 

A | COM 


l 
EXTERNE SPEICHER: 

\ Magnetplatteneinheit, 

: Disketteneinheit, 

I Magnetbandeinheit, 

Kassetteneinheit, 
OFF-LINE-ERFASSUNGSGERÄTE: 

Plattenschreiber, 

Bandschreiber, 

Klarschriftdrucker, on-line —— 
Lochkartenlocher off-line —— > 


Eine Einheit im Zentrum (= CPU) und mehrere periphere 
Einheiten um diese CPU herum (= Peripherie) 
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Die reinen Eingabegeräte dienen ausschließlich 
der Eingabe von Information (Daten wie Programme) in die CPU. 
Zu unterscheiden ist dabei die Direkteingabe von Hand (Tasta- 
tur) oder die Eingabe über einen Datenträger (z.B. über Scheck 
mittels Klarschriftbelegleser). 

Die reinen Ausgabegerät e geben Information von 
der CPU aus z.B. auf den Bildschirm, auf das Endlospapier vom 
Drucker, auf Mikrofilm (COM für Computer Output on Microfilm). 
film) oder auf Lochkarte. 

Die Dialoggeräte übernehmen zwei Aufgaben: die 
Eingabe (in die CPU hinein) wie auch die Ausgabe (aus der CPU 
heraus). Das Bildschirmgerät bzw. Datensichtgerät besteht nur 
aus Tastatur und Bildschirm, es ist das einfachste Terminal. 
Terminal heißt soviel wie Datenendstation, Endpunkt des Benut- 
zers zum Computer oder "Benutzerschnittstelle'" und bezeichnet 
das Zugangsmedium des Benutzers zur CPU. Der Zugang kann dabei 
die Eingabe, die Ausgabe oder beides umfassen; er kann mecha- 
nisch, visuell, manuell und akustisch erfolgen. Ein Terminal 
umfaßt danach eine oder mehrere periphere Einheiten mit unter- 
schiedlichen Datenträgern. 

Die Externen Speicher übernehmen zusätzlich 
zur Ein- und Ausgabe von Information auch deren Speicherung. 
während der Hauptspeicher als interner Speicher der CPU Infor- 
mation nur kurzfristig zur Verarbeitungszeit aufnimmt, so die- 
nen die externen Speicher der langfristigen Aufbewahrung von 
Daten und Programmen sowie der Datensicherung (Back-Up). 


Eingabegeräte, Ausgabegeräte, Dialoggeräte u. Externe Speicher 
zählen zur On - line - Peripherie, weil die 
Verbindung zur CPU on-line ist, d.h. eine direkte Kabelverbin- 
dung die Übertragung von Information ermöglicht. Im Gegensatz 
dazu tritt bei der Off-line-Peripherie an die Stelle der Über- 
tragung der Transport von Daten (samt Datenträgern), da keine 
direkte Verbindung zwischen dem peripheren Gerät und der CPU 
besteht. 


Datenerfassung heißt, Information computerlesbar 
machen. Bei Off-line-Erfassungsgeräten besteht zum Zeitpunkt 
der Datenerfassung keine direkte Verbindung zur CPU: die Daten 
werden auf einem im Erfassungsgerät mitlaufenden Datenträger 
gespeichert. Geschieht die Erfassung hingegen on-line, dann 
ist die Erfassung gleichbedeutend mit der Eingabe. 


1.2.1.2 Drei Gruppen von Datenträgern 


Nach den Geräten der Hardware (CPU, Peripherie) kommen wir nun 
zuden Datenträg-ern; diese müßten eigentlich In- 
formationsträger heißen, da sie nicht nur Daten speichern bzw. 
tragen, sondern auch Programme. 

Man unterscheidet gelochte, magnetische und optische Datenträ- 
ger - je nachdem, ob die Information durch Lochungen, magneti- 
sierte Punkte oder Lichtmarkierungen (hell/dunkel, Laser) dar- 
gestellt wird. 
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Droastzernst resärgwesz 


pm 1 


gelochte magnetische optische 
Datenträger: Datenträger: Datenträger: 
Lochkarte, Magnetplatte, Markierungsbeleg, 
Lochstreifen Plattenstapel, Klarschriftbeleg, 
Diskette, E Magnetschriftbeleg, 
Magnetband, Balkencode-Beleg, 
Kassette, 
Magnetblasen- Optische Platte 
speicher 


Datenträger zur Aufbewahrung von Daten und Programmen 


Die Lochkarte und der vom Fernschreiber übernommene Lochstrei- 
fen werden zunehmend durch magnetische Datenträger ersetzt. 


Die Magnetplatte als Wechselplat te (in Platten- 
einheit auswechselbar) hat meistens 37 cm Durchmesser. Beim 
Magnetplattenstapel sind z.B. 6 solcher Einzelplatten zu einem 
Stapel fest übereinander montiert mit einer Speicherkapazität 
bis 300.000.000 Zeichen (=150.000 DIN A4-Seiten). Die Diskette 
bzw. Floppy Disk als verkleinerte Form der Magnetplatte wird 
als Wechselplatte zur einseitigen oder auch zweiseitigen Spei- 
cherung bei einfacher oder doppelter (2D) Aufzeichnungsdichte 
abgeboten. Derzeit sind drei Disketten-Größen verbreitet: Die 
Maxi-Diskette mit 8" = ca. 20 cm, die Mini-Diskette mit 5.25" 
= ca. 13 cm und die Mikro-Diskette mit 3.5" = ca. 9 cm Durch- 
messer. Disketten erreichen Kapazitäten von 1.000.000 Zeichen 
(=500 DIN A4-Seiten) und mehr. 


Die Winchester-Platte ist als Festplatte fest mit 
dem Gerät verbunden und somit nicht auswechselbar. Als Kunst- 
stoffplatte ist sie in den Größen 14", 8" und 5.25" im Handel. 
Aufgrund der hohen Umdrehungszahl (mehrere 1000 mal/min gegen- 
über 360 mal/min bei der Diskette) wird eine große Zugriffsge- 
schwindigkeit wie auch Kapazität erreicht: über 50.000.000 
Zeichen/Platte sind möglich (=25.000 DIN A4-Seiten). 


Das Magnetband als d e r typische Massendatenspeicher (1,27 cm 
breit und 730 m lang) kann bis ca. 35.000.000 Zeichen (=17.500 
DIN A4-Seiten) aufnehmen. In seiner verkleinerten Form als Da- 
tenkassette werden ca. 300.000 Zeichen (=150 DIN A4-Seiten) 
erreicht; erhältlich ist die Normalkassette, die 1/4-Zoll-Kas- 
sette und die 1/8-Zoll-Kassette. 


Der Magnetblasenspeicher (Bubble Memory) arbeitet ohne mecha- 
nische Teile und wird den herkömmlichen Medien (Band, Platte) 
demnächst Konkurrenz machen. 


Zu den optischen Datenträgern, die der direkten Beleglesung 
dienen: Beim Markierungsbeleg (Erhebungen, TÜV, Bestellungen) 
werden Ja/Nein-Markierungen mit Bleistift ausgefüllt und vom 
Belegleser optisch eingelesen. 
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Beim Klarschriftbeleg (Scheck, Zahlkarte) wird optisches Zei- 
chen-Erkennen (OCR für Optical Character Recognition) dadurch 
erreicht, daß speziell für die DV genormte OCR-Schriften ver- 
wendet werden wie OCR-A, OCR-B und IBM-407. 

Beim Magnetschriftbeleg (Post-Briefverteilung) werden einzelne 
zeichen mit senkrechten Balken aus magnetisierter Farbe darge- 
stellt: jeweils 7 Balken bei der CMC-7-Schrift, Dick-Dünn-Ab- 
weichungen bei der E-13-B-Schrift des US-Banksystens. 

Seit der Vereinbarung des Europa-Artikel-Nummern-Codes (EAN- 
Code) im Jahre 1977 findet sich dieser Balkencode -auch Bar- 
oder Strichcode genannt- zunehmend auf Warenpackungen. Durch 
Abtasten mit einem Lesegerät bzw. Scanner (to scan = abtasten) 
wird die Artikelnummer entschlüsselt. 


Bei der optischen Platte tritt an die Stelle des Schreib-/Le- 
sekopfs der herkömmlichen Magnetplatteneinheiten der Laser- 
lichtstrahl. Dabei sind die gespeicherten Daten nicht mehr än- 
derbar; aufgrund des niedrigen Preises wird einfach auf eine 
zweite optische Platte kopiert. Die Kapazität liegt bei über 


100.000.000 Zeichen (=50.000 DIN A4-Seiten), ist also äußerst 
hoch. 


1.2.2 Verarbeitung von Information in der CPU 
1.2.2.1 Analogie der Datenverarbeitung bei Mensch und Computer 
Die Datenverarbeitung beim Computer vollzieht sich analog zur 
Datenverarbeitung beim Menschen: die CPU als 'Gehirn des Com- 
puters' ist analog zum menschlichen Gehirn aufgebaut. 
Mensch: CE: o’m- Pu E.e.r 3 
GEHIRN CPU 


Leitwerk 
Intelligenz Prozessor 


Gedächtnis Hauptspeicher 


Verhalten Programm 


Grundmodelle der Datenverarbeitung bei Mensch und Computer 


Der Eingabe (E) beim Menschen (Datenaufnahme über Auge, Ohr, 
Nase) entspricht die computerlesbare Eingabe von der Tastatur, 
Die Intelligenz des Computers wird durch einen Prozessor ver- 
körpert, der die arithmetischen und logischen Grundoperationen 
durchführt (ALU für Arithmetic Logical Unit) sowie das Gesamt- 
system steuert (Steuer- bzw. Leitwerk). 
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Neben der Intelligenz (Prozessor) als steuerndem bzw. aktivem 
Teil des Gehirns nun zum Gedächtnis (Hauptspeicher) als auf- 
nehmendem bzw. passivem Teil: den menschlichen Verhaltensab- 
läufen - sicher äußerst vage - vergleichbar sind die Computer- 
programme als Anweisungsfolgen " wi e zu verarbeiten ist", 
während die gespeicherten Daten angeben " wa s verarbeitet 
wird". 

Die Ausgabe (A) bzw. Datenwiedergabe (z.B. durch Sprechen und 
handschriftlich) erfolgt beim Computer in computerlesbarer 
Form (z.B. Ausgabe der Lohndaten auf Diskette) und/oder men- 
schenlesbarer Form (z.B. am Bildschirm oder Drucker). 


Mensch wie Computer sind datenverarbeitende Systeme, die durch 
die 3-Schritt-Folge "Eingabe -> Verarbeitung -> Ausgabe" (kurz 
EVA-Prinzip genannt) gekennzeichnet werden können. 


Als CPU dient beim Personalcomputer bzw. Mikrocomputer ein IC 
auf einem ca. 0.5 cm langen Silicium-Chip. Ein weiterer IC ist 
für den Hauptspeicher (auch Arbeitsspeicher genannt) vorgese- 
hen. Öffnet man den Computer, dann wird man diese und weitere 
Chips sehen, die auf Kunststoffplatinen angeordnet und über 
aufgedruckte Leiterbahnen miteinander verbunden sind. 


Für Skeptiker: Die hier dargestellte Analogie der Datenverar- 
beitung bei Mensch und Computer bedeutet nicht, daß Computer 
künstliche Menschen sind, sondern daß sie ihm im Grundaufbau 
nachgebaut sind. Das einzig Menschliche an Computern ist, daß 
sie vom Menschen konstruiert sind. Sonst sind Computer dumm; 
sie können nur so arbeiten, wie ihnen durch die Programme vor- 
geschrieben wurde. Diese Programme haben zudem etwas äußerst 
unmenschliches an sich: sie beinhalten vornehmlich sich oft 
wiederholende, routinemäßig ablaufende und stupid geistestö- 
tende Tätigkeiten, die von Computern aber sehr schnell, exakt 
und beliebig oft ausgeführt werden können. 


1.2.2.2 Computer als speicherprogrammierte Anlage 


Früher -und das ist erst etwa 30 Jahre her- war das jeweilige 
Programm als Hardware festverdrahtet: so konnte der Buchungs- 
automat nur die Buchhaltung besorgen, der Fakturiertautomat 
nur Rechungen schreiben und der Sortierautomat nichts als nur 
sortieren. Für jede neue Aufgabe mußte ein neuer Automat ange- 
schafft werden. 

Diesem sicher unwirtschaftlichen Hardware-Prinzip machte John 
von Neumann (1903-1957) mit der folgenden ohne Zweifel revolu- 
tionärsten Idee in der Geschichte der EDV ein Ende:danach ent- 
hielt der Hauptspeicher nicht nur die zu verarbeitenden Daten, 
sondern auch das Programm. Da neben den Daten (was wird 
verarbeitet) auch das Programm ( wi e ist zu verarbeiten) 
geändert und ausgetauscht werden konnte, wurde ein und dersel- 
be Computer (Hardware bzw. Gerät unverändert) zum universellen 
Problemlösungsinstrument (Software bzw. Programm änderkar). 
Die oben angeführten Aufgaben der Buchhaltung, Fakturierung 
wie Sortierung ließen sich von e ine m Computer mit den 
entsprechenden Programmen lösen. 

Das Prinzip der Speicherprogrammierung 
hatte das Hardware-Prinzip abgelöst: e i n Computer mit vielen 
austauschbaren Programmen dient heute v ie 1 en Aufgaben. 
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1.2.2.3 Computerrechnen im Dual-System Bit für Bit 


Das Rechnen vollzieht sich in der ALU als Bestandteil der CPU. 
Wie ist dies möglich, wo der Computer doch nur Binärzeichen 
(binär bedeutet zweiwertig) mit den zwei möglichen Zuständen 
0 (kein Strom) und 1 (Strom) unterscheiden kann? Er rechnet 
im 2er-System bzw. Dual-System und nicht wie wir Menschen im 
10er-System bzw. Dezimal-Systenm. 

Addieren wir 5+9 = 14, so erfolgt das berühmte '1 im Köpfchen" 
bei 10, da wir im 10-er System denken. Der Computer führt den 
Übertrag nicht bei 10 durch, sondern bei 2, da er gelernt hat, 
im 2er-System zu funktionieren. Woher aber weiß er, wie groß 
Stellenergebnis und -übertrag sind? Er weiß es durch folgenden 
Trick: Die Addition ist auf die logischen Grundoperationen 
"logisch UND" und "logisch ODER" zurückführbar, und diese Ope- 
rationen lassen sich als Schalter in der ALU darstellen. Damit 
benötigt ein Computer im Grunde nur so wenige Schalter, wie 
logische Operationen darzustellen sind. 


5 + 9 dezimal: 5 + 9 dual: duale Addition 
allgemein: 
3 2 1 0 3 2 1 0 
10 10 10 10 2 2 2 2 0 + 0 = 0 behalte 0 
j 0 +1 = 1 behalte 0 
0 0 0 5 0 1) 0 1 1+0 = 1 behalte 0 
0 0 0 9 1 0 0 1 1+ 1 = 0 behalte 1 
0 0 1 4 1 1 1 0 
logisch 
1%8 + 1%4 + 1%2 + 0%1 = 14 ODER 
1*10 + 4%*1 = 14 
also: dual 1110 gleich dezimal 14 logisch 


Dezimale Addition 5+9 (links), duale Addition 5+9 (rechts) 


Das Binärzeichen wird als Bit (Binary Digit) abgekürzt. Die 
4-Bit-Folge 1110 als Bitmuster bezeichnet die Dezimalzahl 14. 


1.2.3 Speicherung von Information intern im Hauptspeicher 


Information (Daten, Programme) setzt sich zusammen aus Zeichen 
wie Buchstaben, Ziffern und Sonderzeichen. Da der Computer nur 
ein Bit mit den beiden Werten 0 und 1 unterscheiden kann, muß 
jedes Zeichen als Bitmuster gespeichert werden, z.B. der Buch- 
stabe K durch das Bitmuster 01001011 als 8-Bit-Folge. Auf den 
Datenträgern werden Bits meist durch magnetisierte Punkte dar- 
gestellt. Im Hauptspeicher dagegen werden Bits durch Schalter 
dargestellt, die auf 'aus' für 0 oder auf 'ein' für 1 stehen 
können; der Hauptspeicher als elektronischer Speicher besteht 
aus ICs, deren Schalterstellungen den Bitwerten entsprechen. 
Auf die externe Speicherung auf Datenträgern geht Abschnitt 
1.2.4 ein; dieser Abschnitt wendet sich der internen Speicher- 
ung im Hauptspeicher (auch Arbeitsspeicher genannt) zu. 
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1.2.3.1 Informationsdarstellung im ASCII und EBCDI-Code 


Im Hauptspeicher wird Information vorherrschend im ASCII (für 
American Standard Code for Information Interchange) zu jeweils 
sieben Bits/Zeichen gespeichert. Jedes ASCII-Zeichen wird so- 
mit als Siebenbitmuster dargestellt. Im ASCII werden dadurch 
128 (2 hoch 7) Möglichkeiten computerlesbar erfaßt. 

Unabhängig vom Code faßt man jeweils 8 Bits zu einer Einheit 
zusammen, die man Byte nennt. Beim ASCII als 7-Bit-Code 
ist das 8. Bit eines Byte prinzipiell frei; je nach Anwwendung 
wird es verschieden behandelt (z.B. stets 0 oder zur Aufnahme 
eines Prüfbits). 

Beispiel: 7.25 DM soll im ASCII dargestellt werden, also zwei 
Buchstaben (DM), drei Ziffern (725) und zwei Sonderzeichen ( . 
und Blanc). Man erhält demnach die folgenden sieben Bytes 
00110111 00101110 00110010 00110101 00100000 01000100 01001101 
mit dem Achtbitmuster 00100000 als 5. Byte für das Leerzeichen 
bzw. Blanc. 


IBM-Großcomputer verwenden nicht den ASCII, sondern den EBCDI- 
Code (Extended Binary Coded Decimal Interchange Code), der als 
8-Bit-Code 256 (2 hoch 8) verschiedene Möglichkeiten erfaßt. 


1.2.3.2 Hexadezimale Darstellung von Zeichen 


Die 7 Bytes für 7.25 DM sind nicht gerade leicht zu entschlüs- 
seln. Um der besseren Lesbarkeit willen wird man sich Zeichen 
auf dem Bildschirm oder Drucker nicht als Bitmuster ausgeben 
lassen, sondern hexade z i ma | (auch sedezimal oder 
kurz hex genannt). 


Die hexadezimale Darstellung ist umseitig wiedergegeben. 


1.2.3.3 Hauptspeicher als RAM und ROM 


Der Speicher RAM ist ein Schreib-Lese-Speicher (Random Access 
Memory für Direkt-Zugriff-Speicher); der Benutzer kann in den 
RAM Information schreiben bzw. eingeben wie auch aus dem RAM 
Information lesen bzw. ausgeben. Insbesondere bei Personalcom- 
putern ist der Hauptspeicher als RAM ausgebildet, um das An- 
wenderprogramm und die zu verarbeitenden Daten aufzunehmen. 
Häufig ist ein zusätzlicher Teil des Hauptspeichers als Spei- 
cher ROM vorgesehen (vgl. Abschnitt 1.1.1). Auf diesen Nur- 
Lese-Speicher (Read Only Memory) kann der Anwender nur lesend 
zugreifen. Im ROM als Festspeicher werden z.B. Steuerungspro- 
gramme - vom Hersteller fest eingeschmolzen - bereitgestellt, 
die wir zwar anwenden, aber nicht verändern können. 


Die Informationsdarstellung durch die Codes ASCII sowie EBCDI 
gilt für den Hauptspeicher allgemein - unabhängig, ob er nun 
als Speicher RAM oder als Speicher ROM ausgebildet ist. 
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Hex: Dezimal: Binär: = Sag: 5; 7 
[0) 0) 0000 ee 3 &2 
Er 0001 &:|2|82) |82la21$3| 831328: 
2 2 0010 88 |28 ee| E sz|se| |23|22]88 
3 3 0011 ee ae 
4 4 0100 - Fe 2 v 
5 5 0101 21 |btank “| i 
6 6 0110 le en 
a 0111 22 0 la, 
8 8 1000 "| 8 | 8 k „Lie 2 
9 9 1001 a|ı 0 | m ca 0 
a 10 1010 20 lei 
7 
Ce 1100 ze el at 
2E x 23: : CA 
D 13 AEOR |, 7|ı CB 
ee 151 [15l:] [18 
F 32002 w CE 
33 3 78 GE 
| 5 al 1 J 
36 6 78 # D2 K 
Hexadezimale Dar- Bel z . 23 v 
stellung von 3| 93 TE - 05 N 
i 3A 2 7F D6 [0] 
genau 16 Zeichen |; ®0 D7 8 
3C { 1 a D8 
3D - 82 b D9 R 
Darstellung von 7.25 DM im Seen a seloles 
ASCII hexadezimal: #0 | @ blank 55 B sc 
37 2E 32 35 2 44 4D 
i s|: s| 12||8 
44 D i EO 
Darstellung von 7.25 DM im [ie “= En ä 
EBCDI-Code hexadezimal: 9 |G 8C &3 T 
FT 4B F2 F5 21 C4 D4 an ve es v 
4A J 1 - es Y 
48 K v r 
Die hexadezimale Darstellung N a1 i E2 x 
von 7.25 DM im ASCII sowie EiIN| + 93 I EA 
im EBCDI-Code ist wesentlich ER = m & 
besser lesbar als die zuge- | a % ° eD 
._. . 52 R 97 p EE 
hörige Bitmusterdarstellung. s|s a q E n 
PR 155 5 9A ; Fi 1 
Die Übersetzung binär - hex I |w Be 2 : 
besorgt der Computer selbst. el ® Ps ; 
5A 2 } 
Die hexadezimale Darstellung * \ ! “ FB 8 
stellt nur eine Lesehilfe Boa LO IE: 2 x a = 
dar. Im Hauptspeicher werden SF A Aa t 
. . » . co AS u 
die Daten nach wie vor binär 6 | E v 
gespeichert und aufgerufen. Seren U aM RR Bee] 


Die Codes ASCII und EBCDI 


Bei Mikrocomputern bzw. Personalcomputern findet man meistens 


den ASCII. 
Der EBCDI hingegen wird bei größeren DV-Systemen verwendet. 
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1.2.3.4 Byte als Maßeinheit für die Speicherkapazität 


Das Byte dient einerseits zur Darstellung von Zeichen und an- 
dererseits zur Angabe der Speicherkapazität 

10 
1 Kilo-Byte = 2 Bytes = 1024 Bytes = ca. eintausend 
Zeichen Speicherkapazität 


1 KB 


1 MB = 1 Mega-Byte = 1000 KB = 1.024.000 Bytes = ca. eine 
Million Zeichen Speicherkapazität 


Die Angabe '64 KB RAM' oder auch einfach '64 K RAM' bedeutet, 
daß dem Benutzer ein Hauptspeicherplatz von ca. 64.000 Zeichen 
Größe für Programm und Daten zur Verfügung steht. 


1.2.4 Speicherung von Information extern auf Datenträgern 
1.2.4.1 Kassette und Magnetband 


Auf Kasse t t e werden Daten Bit für Bit hintereinander, 
d.h. bit ser ie 1 1] , aufgezeichnet. Dies ist bei Audio- 
kassettenlaufwerken der Fall wie bei den eigens für den Conm- 
putereinsatz entwickelten Recordern. Die 8 Bits 01001101 für 
den Buchstaben M stehen auf Kassette also hintereinander. Auf 
das wesentlich breiteren Magnet band hingegen passen 
die Bits nebeneinander: demnach liegt beim Magnetband eine 
bitpara ll e 1 e Aufzeichnung vor. 


Zu unterscheiden sind Start-/Stop-Geräte und Streaming-Geräte: 
Bei den Start-/Stop-Geräten wird blockwei se gespei- 
chert, wobei jeder Block durch Klüfte (Gaps) als Leerräume vom 
‚nächsten Block getrennt ist. Commodore-Kassetten 2/3000 haben 
z.B. folgendes Aufzeichnungsformat: 

- 10 Sek. Vorspann (leader) 

- 192 Zeichen Fileüberschrift (header) 

- 2 Sek. Kluft (Gap bzw. Vorspann) 


- 192 Zeichen Daten (=1. Datenblock) Datenfile (Daten 

- 2 Sek. Kluft datei) mit 192 

- 192 Zeichen Daten (=2. Datenblock) Zeichen je Block. 
- 192 Zeichen Daten (=n. Datenblock) 

- EOF-Zeichen als Marke für End Of File 

- 10 Sek. Vorspann (leader) eg 

- 192 Zeichen Fileüberschrift (header) [eroszennsi1e mit 

- Programmblock mit 10 KB max 32.000 Zei- 


bis 32 KB Zeichen [chen je Block. 
- EOF-Zeichen N ae 
Leerräume bzw. Klüfte kosten Speicherplatz. Sie sind erforder- 
lich, da nur bei gleichmäßiger Bandgeschwindigkeit gelesen und 
geschrieben werden kann. Die Übertragungsraten liegen zwischen 
250 und 1500 Baud bzw. bps (Bits pro Sekunde bei serieller und 
Bytes (Zeichen) pro Sekunde bei paralleler Aufzeichnung). 
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Beiden Streaming - Geräten entfallen die Klüfte und 
Start-/Stop-Marken. Die Daten 'strömen' (to stream) ohne Stops 
in der kompletten Bandlänge in den Hauptspeicher. Streaming- 
Laufwerke werden hauptsächlich zur Datensicherung (Back-Up) 
von Plattendaten (Diskette,Winchesterplatte) verwendet. Strea- 
mer sind billiger, schneller und speicherplatzsparender als 
Start-/Stop-Cartridges; die kleinste Zugriffseinheit aber ist 
das gesamte Band (vgl. Abschnitt 1.2.4.5). 


Wichtige Einsatzgebiete des Bandes sind die Langzeitarchivie- 
rung, die Datensicherung (Back-Up), der Daten- und Programm- 
austausch sowie -vertrieb (Postversand), die Ersterfassung von 
Daten, die Speicherung von Datenbeständen mit Reihenfolgever- 
arbeitung (z.B. Inventar) und die Programmspeicherung. Im Hin- 
blick auf die Kosten je abgespeichertem Byte schneidet kein 
Datenträger besser ab als das Magnetband als de r typische 
Massenspeicher. 

Muß häufig auf Einzeldaten direkt zugegriffen werden, dann 
scheidet das Band (großes Magnetband wie kleine Kassette) aus. 


1.2.4.2 Diskette, Winchesterplatte und Magnetplatte 


Die Speicheroberfläche der Platte als Direktzugriff-Speicher 
ist stets ähnlich organisiert - ob sie als Diskette im Maxi-, 
Mini- oder Mikroformat eingesetzt wird, als Festplatte in Win- 
chster-Technologie, als große Magneteinzelplatte oder als Mag- 
netplattenstapel. Am Beispiel des Softsektor-Formats IBM 3740, 
das bei Mini-Disketten fast zum Standard geworden ist, wollen 
wir die Speicherorganisation der Platte genauer erklären. 


Eine neu gekaufte Diskette ist leer, sie ist weder beschrieben 

noch irgendwie unterteilt. Beim Softsektor-Format IBM 3740 ist 

die Formatierung (Form der Speicheroberfläche festlegen) bzw. 

Sektorierung (Oberfläche in Sektoren als Abschnitte eintei- 

len) softwaremäß ig durch ein spezielles Programm 

wie folgt vorzunehmen: 

- 77 kreisrunde Spuren vorsehen; bei 2seitiger Diskette bilden 
gegenüberliegende Spuren je einen Zylinder. 

- Jede Spur in gleichlange Sektoren (Abschnitte) gliedern: 26, 
15 oder 8 Sektoren/Spur, je nach der Sektorlänge von 128, 
256 oder 512 Bytes. 

- Spuren numerieren von Spur 00 (außen) bis Spur 76 (innen). 

- Verwendung festlegen: Spur 00 für Inhaltsverzeichnis, Spuren 
01-74 für Benutzerinformation, Spuren 75-76 Fehlerreserve. 

- Die Sektoren durch Klüfte bzw. Gaps trennen, um auf den Sek- 
tor als kleinste zugriffseinhei t bei 360 Um- 
drehungen/Minute fehlerfrei zugreifen zu können. 

- Die Sektoren unterteilen in ID-Feld (=Identifikationsfeld 
als Adreßfeld) und Daten-Feld (=Benutzerinformation 128, 256 
oder 512 Bytes lang). 
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@ 7 N = > 
cz 7 N er = 
2 G Index > > x re 
\ Letzter : 
I Seen GAP Sektor 01 Sektor 02 Sektor 03 
> Br— 
Bere GAP 
En 2 > 


_ID-Feld Daten-Feld 
ee == - — 


128,256 oder 512 Bytes 


Speicherorganisation der Platte am Beispiel des 
Softsektor-Formates IBM 3740 für Disketten 


Eine Spur hat weder Anfang noch Ende. Wenn eine Lichtschranke 
das Index loch überfährt, wird durch einen Impuls der 
'Spurbeginn' angezeigt. 

Im Gegensatz zur hier erklärten Softsektorierung wird bei der 
hardsektoriert en Diskette die Einteilung hard- 
waremäßig bereits vom Hersteller vorgenommen. 


Bei Einzelplatten wird bit ser ie 1 1 auf Spuren aufge- 
zeichnet. Die 8 Bits 01001101 für M im ASCII stehen also der 
Reihe nach hintereinander (z.B. auf Spur 34). 

Beim Magnetplattenstapel kann zylinderweise auf den jeweils 
‚unmittelbar übereinanderliegenden Spuren aufgezeichnet werden. 


1.2.4.3 Klarschriftbeleg als Druckerausgabe 
Auf einem Klarschriftbeleg wird Information in einer für den 
Menschen s o w i e den Computer lesbaren Form extern gespei- 


chert (vgl. Abschnitt 1.2.1.2). Hier die Zeichendarstellung 
bei der heute besonders weit verbreiteten Klarschrift OCR-A: 


ABCDEFGHIJKLMNOPARSTU 
VUXYZ 0123456789 


Klarschriftbelege werden durch Klarschriftdrucker erstellt, 
bei denen es sich vornehmlich um Typenraddrucker handelt. Hier 
eine kleine Übersicht der Druckertypen allgemein: 


- Zu unterscheiden sind mechanische Drucker (impact) und nicht 
mechanische Drucker (non-impact), serielle Drucker (Zeichen 
für Zeichen drucken) und Zeilendrucker (zeilenweise drucken) 
sowie in einer Richtung und vor/rückwärtsschreibende Geräte. 

- Bei den mechanischen Drucker überwiegen Typenraddrucker und 
Matrixdrucker. 
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- DoprTypenraddrucke r hat Typen an Armen (Spei- 
chen) des Typenrades befestigt. Die Räder lassen sich aus- 


wechseln - und damit auch die Schrifttype sowie die Zeichen- 
dichte (z.B. 1/10" = 132 Zeichen/Zeile, 1/12" = 158 Zeichen/ 
Zeile, 1/15" = 198 Zeichen/Zeile). 


Typenraddrucker werden dort eingesetzt, wo es auf die Druck- 
qualität ankommt: z.B. in der Textverarbeitung und der Klar- 
schrifterfassung. Man nennt die auch 'Schönschreibdrucker'. 

- Dr Matrixdrucrker erzeugt Zeichen in Form ei- 
ner matrixförmigen Anordnung von Einzelpunkten. Je mehr Roh- 
re bzw. Nadeln pro Matrix (z.B. 7*9- und 7*5-Matrix), desto 
besser ist das Druckbild. Kann man Matrixpunkte einzeln an- 
steuern, läßt sich der Matrixdrucker zur Ausgabe von Grafik 
(wie Kurven und Bildern) verwenden. 

- Nicht-mechanische anschlagsfreie Drucker arbeiten leiser 

und schneller als Impact-Drucker: dabei handelt es sich um 
Ti, ntenst Dahlaruecker (Ink-Jet) oder um 
elektrofotografische Verfahren kombiniert mit Laserstrahlen; 
beide Druckertypen arbeiten mit Normalpapier. 
Spezialpapier benötigen die Thermodrucker (wär- 
meempfindliches Papier), die elektrostatischen Drucker (Die- 
lektrikum auf dem Papier) und die Elektroerosionsdrucker 
(Kondensatorpapier). 


1.2.4.4 Schnittstellen als Bindeglieder CPU - Peripherie 


Soll der Informationsaustausch zwischen der CPU und den ange- 
schlossenen Peripheriegeräten bzw. Datenträgern klappen, dann 
müssen die Einheiten zueinander passen, d.h. kompatibel (oder 
besser: steckerkompatibel) sein. Genau als solche Steckverbin- 
dungen kann man sich die Schnittstellen (engl. 
Interfaces) vorstellen. Damit Geräte verschiedener Herstel- 
ler miteinander verbunden werden können, müssen die Schnitt- 
stellen der Geräte genormt sein. Die vier bei Personalcompu- 
tern zumeist anzutreffenden Schnittstellen sind die V.24-, 
die TTY-, die Centronics- und die IEC-Bus-Schnittstelle. 


- Die V.24-Schnittstelle ist eine asynchrone, serielle Schnitt- 
stelle: asynchron bedeutet, daß 2 Geräte trotz verschiede- 
nen Arbeitsgeschwindigkeiten einander angepaßt werden kön- 
nen; seriell heißt, daß Bit für Bit nacheinander übertragen 
werden. Die US-Schnittstelle RS-232-C entspricht der V.24. 
Beide Interfaces findet man in der Datenfernverarbeitung. 


- Als weitere serielle Schnittstelle wurde die TTY-Schnitt- 
stelle vom Fernschreiber (Teletype) übernommen zum Anschluß 
von Bildschirm und Drucker. 


- Nach dem Druckerhersteller Centronics benannt ist eine wei- 
tere Schnittstelle, mit der Drucker anderer Fabrikate ausge- 
rüstet sind. Als parallele Schnittstelle werden 
alle Bits eines Zeichens (Byte) über 8 parallele Leitungen 
übertragen (gleichwohl: bitparallel, aber zeichenseriell). 
Die Centronics-Schnittstelle ist heute zum Quasi-Standard 
bei Druckern geworden; dabei wird zumeist ein 36-poliger 
AMP-Stecker verwendet mit nur teilweise genormter Pinbele- 
gung (exakte Belegung der Pins dem Handbuch zu entnehmen). 
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- Die IEC-Bus-Schnittstelle umfaßt 8 Daten-, 3 Quittungs- und 
5 Steuerleitungen, um bis zu 15 Peripheriegeräte an einen 
Computer anzuschließen. 


Exakt beschriebene Schnittstellen gehen einher mit dem Trend 
zur "Mixed Hardware' als dem Zusammenschluß von Peripheriege- 
räten unterschiedlicher Herstellermarken. Dies wiederum führte 
zur steten Ausweitung des OEM-Marktes (Original Equipment Ma- 
nufacturer). Ein OEM ist ein Gerätehersteller, der seine Pro- 
dukte nicht (nur) an Endabnehmer verkauft, sondern ebenso an 
andere Hersteller; auf dem OEM-Markt besorgen sich Computer- 
hersteller Peripherie-Geräte, die sie in ihr System integrie- 
ren. So kann sich z.B. hinter dem IBM-Typenschild eines Druck- 
ers, den IBM für seinen Personalcomputer anbietet, durchaus 
ein EPSON-Drucker verbergen. 


1.2.4.5 Back-Up-Systeme zur Datensicherung 


Für Personalcomputer -autonom als Stand-alone-Systeme genutzt- 
bietet sich folgender Mix für die externen Speichergeräte an: 


Datenverarbeitung Datensicherung 


Für Daten/Programnme: 


Für die Daten: Für die Programme: 
WINCHESTER-PLATTE | DISKETTE (FLOPPY) MAGNETBAND 
als Festplatte ı als Wechselplatte als Massenspeicher 


| Dt} 


Externspeicher zur Datenverarbeitung und zur Datensicherung 


Festplatten-Laufwerke bringen dem Anwender von Personalcompu- 
tern die gewünschten hohen Speicherkapazitäten, zugleich aber 
auch das Problem der Datensicherung bzw. des Back-Up ( 1 DIN- 
A4-Seite = ca. 2 KBytes; 20 MBytes auf einer Festplatte = ca. 
10 Karl-May-Bücher; 1 MBytes eintippen = ca. 10 Manntage). Bei 
Programm- oder Bedienungsfehler, Defekt des Externen Speichers 
oder des Computers selbst könnten die Daten zerstört werden; 
deshalb müssen Sicherungskopien der Daten erstellt werden. Bei 
Back-Up-Systemen als Reserve- bzw. Sicherungssysteme (Back-Up 
heißt: Zeichen für Zeichen z.B. auf Band kopieren) gibt es 
Disketten, Wechselplatten und Bänder als Sicherungsdatenträger 
(letztere im Start-Stop- sowie im Streaming-Betrieb (Abschnitt 
1.2.4.1)). Mit dem zunehmenden Umfang der zu sichernden Daten- 
bestände wird sich das Magnetband als Streamer durchsetzen: so 
kann ein Cartridge-Tape-Streamer den Inhalt einer 20-MB-Fest- 
platte in wenigen Minuten kopieren und damit sichern. 


Bei dieser Art der Datensicherung werden die Sicherungskopien 
in einem gesonderten Arbeitsgang z.B. allabendlich oder zwei- 
mal je Woche durchgeführt. Anders geht dass Loggingvor, 
bei dem sämtliche über Tastatur eingegebenen Daten von einem 
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Datensicherungsprogramm automatisch auf einer Zusatzdatei mit- 
geschrieben werden; diese Datei wird auch "Log-Datei' genannt. 
Die Datensicherung wird also bereits im Rahmen der Datenerfas- 
sung vorgenommen - dieser Erfassung wenden wir uns jetzt zu. 


1.2.5 Verfahren der Datenerfassung 


Datenerfassung heißt, Daten in computerlesbare 
Form bringen (vgl. Abschnitt 1.2.1.1) und umfaßt den Weg von 
der Entstehung der Daten bis zu deren Eingabe in die CPU. Da 
im kaufmännischen Bereich ca. 90% des Zeitaufwandes auf diesen 
Weg entfallen, ist der Kostenanteil der Datenerfassung relativ 
hoch anzusetzen. 
Die unterschiedlichen Verfahren der Datenerfassung 
werden festgelegt durch vier Faktoren: 
1) Anzahl der Stufen, die die Daten von der 
Entstehung bis zur Eingabe durchlaufen. 
2) Verbindung zwischen Erfassungsgerät und CPU zum Zeitpunkt 
der Erfassung: off - line oder on - line. 
3)Zentrale oder dezentrale Durchführung 
der Erfassung. 
4) Erfassungsgerät mit eigener Intelligenz ausge- 
stattet oder nicht. 
Auf diese Faktoren wollen wir nun im Überblick näher eingehen. 


Zunächst ist eine einstufige, zweistufige und dreistufige Da- 


tenerfassung zu unterscheiden. 


ENTSTEHUNG DER DATEN DEZENTRAL IM BETRIEB 


Drei Stufen: Zwei Stufen: Eine Stufe: 
| 

Urbeleg nicht Urbeleg oder 

computerlesbar beleglos 


(z.B. Rechnung) 


Übertragung auf computerlesbarer 
Datenträger Beleg = Datenträger 

(z.B. Disket- (z.B. Band in Kasse 

tenschreiber) mitlaufend) 

ee InSePU Eingabe in CPU Eingabe in CPU 
(Z2Br dureh Dis (z.B. durch Band- direkt über 
ketteneinheit) einheit) Dialoggerät 


VERARBEITUNG DER DATEN ZENTRAL IN DER CPU 


Die "klassische Datenerfassung' durchläuft drei Stufen: Er- 
stellen des Urbelegs, Übernehmen auf Datenträger und Eingeben 
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in die CPU. Werden Urbeleg und Datenträger gleichzeitig er- 
stellt, dann verkürzt sich das Vorgehen auf zwei Stufen. Mit 
der Bildschirmerfassung sowie der Erfassung über Scanner bzw. 
Lesestift kommt man zur einstufigen Direkterfassung. Beispiel: 
POS - System (Point-of-Sales-System, Verkaufspunkte-Systenm). 


Bei der Off-line-Erfassung erfolgen Erfassung und vVerarbei- 
tung vollständig getrennt voneinander. Beim Datensammelsystem 
z.B. wird zunächst von mehreren Erfassungsplätzen ein gemein- 
samer Datenträger erstellt, der dann später zur Verarbeitung 
weitergegeben wird. 

Bei der On-line-Erfassung gelangen die Daten direkt in die CPU 
(an die Stelle des Datenträgertransports tritt also die Daten- 
übertragung). Der große Vorteil der on-line gegenüber der off- 
line durchgeführten Erfassung liegt in der Zeitersparnis. Als 
nachteilig kann sich der Umstand auswirken, daß während der 
Erfassung die CPU für andere Arbeiten blockiert ist. 


Dezentrale Erfassung heißt, Daten am Ort ihrer Entstehung zu 
erfassen - z.B. im Lager und beim Verkauf. Die mobile Datener- 
fassung über tragbare Personal- u. Mikrocomputer zählt hierzu. 
Bei der zentralen Erfassung hingegen bringt man alle Urbelege 
an eine bestimmte Stelle (Beispiel: Datensammelsystem). 


Datenerfassungsgeräte werden zunehmend mit eigener Intelligenz 
ausgerüstet. Oder anders ausgedrückt: Zur Erfassung greift man 
immer häufiger auf Mikrocomputer zurück, die z.B. wahlweise 
on-line an einen Großcomputer angeschlossen sind und off-line 
als selbständige Computereinheit (Stand-alone-System) genutzt 
werden. 


1.2.6 Computertypen 


Zunächst: Wenn vom "'Computer' die Rede ist, dann ist damit im- 
mer der frei programmierbare Allzweckrechner bzw. General-Pur- 
pose-Computer gemeint, nicht jedoch der Spezial-"Computer" wie 
z.B. eine Datenbank-Maschine (vgl. Abschnitt 1.3.5.6) oder ein 
Textverarbeitungs-Automat. 

Zu den zahlreichen Typologien für Computer soll hier keines- 
falls eine weitere hinzugefügt werden. Anhand der beiden Ex- 
treme "Personalcomputer' und "Großcomputer' soll allein eine 
Orientierungshilfe gegeben werden. 


1.2.6.1 System-Konfigurationen für Personal- und Großcomputer 


Eine System-Konfiguration gibt an, wie periphere Einheiten um 
eine CPU zu einem funktionsfähigen DV-System zusammengestellt 
sind. Zunächst eine Gerätezusammenstellung, wie sie für Perso- 
nalcomputer typisch ist. Die Geräte werden dabei zeichnerisch 
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Schnell- 
2% drucker 


Zentral- 


il i EEE 
astatur mit einher 


Bildschirm 


(ZE) 
Disketten- Kassetten- 
einheit einheit 


Für Personalcomputer typische System-Konfiguration 


durch Sinnbilder dargestellt, die nach DIN 66001 genormt sind. 
Der Personalcomputer -für den persönlichen Gebrauch und durch- 
aus auch zur beruflichen Nutzung gekauft- soll hier nicht von 
Bezeichungen wie Privat-Computer, Tischcomputer, Heimrechner, 
Spielcomputer und Kleinrechner abgegrenzt werden; dazu schrei- 
tet die Entwicklung viel zu schnell voran. Vielmehr soll der 
Personalcomputer als extremes Gegenstück zur 
Kategorie der Großcomput er aufgefaßt werden , die 
z.B. mit je fünf Band- und Platteneinheiten als Externspeicher 
ausgerüstet sein können. Großcomputer werden in Rechenzentren 


- 


ZE 


5 Bandeinheiten 
= be 5 Plattenstapel als 
DEU Direktzugriff-Speicher 


5 Magnetbandschreiber 
zur Datenerfassung 


Für Großcomputer typische System-Konfiguration 


betrieben - sei es im unternehmenseigenen Rechenzentrum oder 
im Sevice-Rechenzentrum von einem freien, herstellereigenen 
bzw. kooperativen DV-Dienstleistungsunternehmen. Die Sinnbil- 
der für Band und Platte werden oft auch für Kassette und Dis- 
kette verwendet. 

Zwischen dem Personalcomputer als unterem und dem Großcomputer 
als oberem Extrem gibt es zahlreiche Abstufungen wie z.B. An- 
lagen der Mittleren Datentechnik (MDT), Minicomputer, Büro- 
Computer oder auch Small-Business-Computer. Ebenso können meh- 
rere Computer zu einem Rechnerverbund vernetzt sein (Netzwerk) 
mit Satelliten-Computern, die selbständig als Stand-alone- 
System und/oder on-line mit einem Haupt-Computer arbeiten. Da- 
bei sind Personalcomputer häufig Teil eines Großcomputers. 
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Großcomputer werden oft als Mainframe s bezeichnet 
und damit von der anschließbaren Peripherie abgegrenzt. Per- 
sonalcomputer zählen immer häufiger zu dieser Peripherie. 


1.2.6.2 Eigenschaften von Personalcomputern 
Personalcomputer weisen allgemein folgende Eigenschaften auf: 


1) Autonom arbeitendes DV-System mit’ zumindest einem 
Externspeicher. 

2) CPU mit mindestens 64 KB RAM für Benutzerdaten und 
Benutzerprogramme. 

3) Verfügbarkeit mindestens einer höheren Programmier- 
sprache (Basic, Pascal, Forth, ...). 

4) Möglichkeit, in Maschinensprache (Assembler) zu 
programmieren. 

5) Betriebssystem ermöglicht Dialog zwischen 
Benutzer und Computer. 

6) Exakt beschriebene Schnittstellen. 


wünschenswert ist, daß Personalcomputer hardwaremäßig wie auch 
softwaremäßig kompatibel sind. So sollten Programmiersprachen 
wie Basic und Pascal genormt sein, für die Externspeicher ein- 
heitliche Aufzeichnungsformen übernommen werden (z.B. für Dis- 
ketten das sSoftsektor-Format IBM 3740) und übereinstimmende 
Schnittstellen definiert sowie steckermäßig vorgesehen sein 
(z.B. gesamten Systembus an eine Steckerleiste herausführen, 
damit der Anwender das System später erweitern kann). Doch wa- 
rum auch soll eine CBM-Floppy zu einem Apple passen, wenn ein 
Opel-Vergaser nicht zu einem Ford paßt; und warum soll das BA- 
SIC-Programm eines Alphatronic auf einem IBM-PC laufen, wenn 
das Motoröl eines VW nicht für einen Mercedes geeignet ist? 


Häufig werden für Mikrocomputer die vier Kategorien Handcompu- 
ter (HC), Videocomputer (VC), Personalcomputer im engeren Sin- 
ne (PC) und Tragbare Computer (Portables) gebildet. 


Hrcenedec=os1spmatsesrs alHE@)T: 
Hand-Held-Computer, Pocket-Computer, Briefcase-Computer. 
Tastatur mit Zeilendisplay, Module. Taschenrechnerformat. 


Veower orcKosmEpzUunt eur ElVe) 
Tastatur mit Videoanschluß; zunehmend Diskettenlaufwerke 
anschließbar. Ausbaumöglichkeit in Richtung PC. 


PEezr2s7 ofnBarlrcEonNEPIErLeS rt BE)E 
Tastatur, Diskette und/oder Hard-Disk, Monitor. Zunehmend 
16-Bit-Mikroprozesor. Monitor. Mehrere Betriebssysteme. 


Pro vn tyarbelze GROENEP USE erre 
Tastatur, CPU, Diskette und Monitor als eine Einheit, als 
Koffer tragbar. 


Vier Kategorien von Mikrocomputern 


Daneben unterscheidet man nach der Nutzungsart Homecomputer 
(privat) und professionelle Computer (beruflich). 
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Die VCs müssen an einen Bildschirm angeschlossen werden. Dies 
kann ein normales Fernsehgerät sein, das jedoch aufgrund der 
geringen Auflösung (960 Zeichen pro Bild) für Grafik wie auch 
längere Benutzung nur bedingt geeignet ist. Auch VCs benötigen 
einen Monitor (ca. 2000 Zeichen pro Bild), der eine wesentlich 
ruhigere Bildwiedergabe bietet. 

Die Portables -Neuentwicklungen oder aber Abkömmlinge von be- 
reits bewährten PCs- werden häufig zur mobilen Datenerfassung 
eingesetzt. 

Vergleicht man den Markt der Mikros mit dem der PKWs, so stel- 
len die PCs die 'normalen' Limousinen dar, während HCs, vVCs 
und Protables dann die Minis, Cabrios usw. ausmachen. 


1.2.6.3 Personalcomputer im Computer-Netzwerk 


Sinkende Hardware-Kosten und eine ständig zunehmende Zahl von 
Informationsquellen führen immer häufiger zur Vernetzung meh- 
rerer Personalcomputer zu einem lokalen Net z . Das 
Attribut 'lokal' verweist auf einen begrenzten Wirkungsbereich 
wie eine Abteilung oder ein Gebäude (sog. Inhouse-Netz); auch 
hierzulande spricht man dabei von LANs (Local Area Network). 


Es gibt Netze mit Stern-, Ring- oder Bus-Struktur. Bei stern- 
förmiger Anordnung ist jeder Computer mit einer zentralen Ein- 
heit verbunden, die verwaltet und die Netz-Leistung begrenzt; 
fällt sie aus, so bricht das gesamte Netz zusammen. Die Ring- 
Anordnung ist billiger, doch auch hier führt der Ausfall einer 
Station zum Ausfall des gesamten Netzes. Dies ist nicht so bei 
der Bus-Anordnung als weitverbreitetem Konzept: über eine San- 
melschiene kann jede Station mit jeder Station in Kontakt tre- 
ten. Das von Xerox, Intel und DEC entwickelte Netz "Ethernet' 
weist eine Bus-Struktur auf und stellt durch seine große vVer- 
breitung einen Quasi-Standard dar. 

Es gibt Netze mit und ohne Master-Controller. Der Masterbild- 
schirm weist die höchste Priorität auf und ist zumeist softwa- 
remaßig ansteuerbar; gegenüber der hardwaremäßigen Verdrahtung 
ist dies bei Ausfall des Masterbildschirms (andere Station als 
Master ansteuern) von Vorteil. 

EIn netz verfügt oft nur über einen oder zwei Drucker, die mit 
Drucker - Spo o 1 in g angesteuert werden. Anstatt Daten 
direkt auf den Drucker auszugeben, "drucken' die Stationen 
auf eine Platte (Zwischenspeicher), deren Information automa- 
tisch durch ein Spooler(-programm) ausgedruckt wird. 

Spool steht für "simultaneous peripheral operations on-line!'. 


Personalcomputer finden nicht nur intern im lokalen Netz Ver- 
wendung, sondern ebenso im o-£ Bene LE chen Netz 
extern. So im BTX-Netz als BTX-Editierplatz des Informations- 
anbieters, als BTX-Terminal des Konsumenten oder als Kommuni- 
kationssystem für kleinere Firmen. 

Nach Datex, Datex-L, Telex, Teletex und BTX werden Personal- 
computer sicher auch in dem von der Post geplanten Netz ISDN 
(Integrated Services Digital Network) eingesetzt werden, das 
Daten, Text, Standbilder wie auch Sprache übermitteln wird. 
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Personalcomputer werden von Beginn an primär als Stand - 
Alone - Syst em autonom für sich alleine verwendet. 
Man spricht auch vom Single-User-Betrieb. 

Vernetzt man mehrere Personalcomputer, so gelangt man zu einem 
Multi - User - Bet ri eb, bei dem mehrere User 
(Benutzer) über ihre PCs als Terminals verbunden sind. 
Single-User-Betrieb wie auch Multi-User-Betrieb können unter 
Multitasking laufen; dabei werden mehrere Aufgaben 
als Tasks quasi gleichzeitig durch e i n e CPU abgearbeitet. 
Multiusing und Multitasking stellen hohe Anforderungen an das 
Betriebssystem (z.B. MP/M und Concurrent CP/M; siehe Abschnitt 
1.3.6.6). 


1.3 Software = Daten + Programme 


1.3.1 Software im Überblick 


Software isst Information und wird unterteilt in 
Daten und Programme (vgl. Abschnitt 1.1.1). Auf 
diese beiden Komponenten der Software wollen wir nun eingehen. 


1.3.1.1 Begriffsbildungen für Daten 


Sieben wichtige Begriffspaare für Da t en wollen wir näher 
betrachten. 


Stammdat en bleiben normalerweise über einen längeren 
Zeitraum hinweg konstant (z.B. Artikelstammdaten, Kundenstamm- 
daten, Personalstammdaten), Änderungsdaten die- 
nen der Anpassung von Stammdaten. 

Im Gegensatz zu Stammdaten erfahren Bestandsdaten 
oftmalige Änderungen, die durch Bewegungsdaten 
vorgenommen werden (Zugang für + und Abgang für -); letztere 
werden kurz auch als Bewegungen bezeichnet. Die Lagerbestands- 
fortschreibung nach der Formel "Anfangsbestand + Zugänge - Ab- 
gänge ergibt Endbestand' gehört in diese Kategorie von Daten. 
Ordnungsdaten legen eine Speicherungs-, Sortier- 
bzw. Verarbeitungsfolge fest, Mengendat en hingegen 
eine Anzahl (Stück, Größe, Gewicht, Preis). 

Mt numerischen Dat en bzw. Zahldaten rechnet 
jeder Computer, nicht jedoch mitt Textda ten. Letztere 
umfassen beliebige Zeichen, die stets zwischen Gänsefüßchen 
oder Hochkommata stehen, und werden auch als alphanumerische 
Daten, als Zeichenkettendaten oder als Strings bezeichnet. 
unformatierte Da t en weisen keine einheitli- 
che Form auf. In der kommerziellen Datenverarbeitung überwie- 
gen formatierte Dat en : auf einem Rechnungs- 
formular stehen z.B. die Dezimalpunkte der DM-Beträge unter- 
einander, jeweils auf 2 Nachkommastellen gerundet. 
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Begriffspaar: 


Beispiel: 
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1) Stammdaten 1019 als Kundennummer 
oder 
Änderungsdaten 1019007 als neue Kundennummer im 
Postleitzahlgebiet 7 
2) Bestandsdaten 256 als Lagermenge 
oder 
Bewegungsdaten 70 Stück als Lagerbestandszugang 
3) Ordnungsdaten 6 für Artikelfarbe "'gelb' 
oder 
Mengendaten 8 kg als Bestellmenge 
4) Numerische Daten zahl 10950.25 als Rechnungspreis 
oder 
Textdaten "Gulden" als Währungsbezeichnung 
5) Unformatierte Daten Zwei ungeordnete Positionen 265.65 DM 
oder 9 DM 
Formatierte Daten Zwei geordnete Positionen 265.65 DM 
9.00 DM 
6) Einfache Datentypen 50 als e i ne Menge 
oder 
Strukturierte Datentypen bzw. Datenstrukturen 
50 24 98 33 102 als f ün f Mengen 
7) Im Programm gespeicherte Daten 6% als Rabattsatz 


oder 
Getrennt vom Programm gespeicherte Daten bzw. Dateien 
Kunden d a t e i mit 2680 Kunden 


Sieben Begriffspaare für Daten 


Mit die wichtigste Unterscheidung ist die von einfachen Daten- 
typen und Datenstrukturen: 

Einfache Datentypen bestehen aus jeweils 
nur einem einzigen Datum, so aus einer Ganzzahl (INTEGER), aus 
einer Dezimalzahl (REAL) oder aus einem Textwort (STRING). Die 
Datenstrukturen als strukturierte Datentypen 
hingegen umfassen jeweils mehrere Daten, die unterschiedlich 
z.B. als Feld (ARRAY), Verbund (RECORD) oder Datei (FILE) an- 
geordnet sein können. In Abschnitt 1.3.5 werden die Datentypen 
im Zusammenhang mit der Datei genauer erklärt. 


Einzeldaten und kleinere Datenbestände lassen sich innerhalb 
eines Programmes speichern, so z.B, der Rabattsatz in einem 
Rechnungsschreibungsprogramm. Die umfangreichen in der kommer- 
ziellen Datenverarbeitung zu verarbeitenden Datenbestände wer- 
den getrennt vom Programm als Dat ei auf Platte 
oder Band als externem Speicher untergebracht. 


1.3.1.2 Begriffsbildungen für Programme 


Man unterscheidet Anwenderprogramme sowie Systemprogramme. 
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Programme 
Anwenderprogramme Systemprogramme 

vom Anwender von Software- Steuer- Dienst- Übersetzer- 
selbst haus fremd pro- pro- programm 
erstellt bezogen gramm gramm 
z.B. eigene ZieBs ZEBe ZUBR ZWBRSBASTE, 
Rechnungs- Tabellen- Dialog Sortier- PASCAL, 
schreibung kalkulation Mensch- programm Cobol, 

Computer BORMH,SC 


Anwenderprogramme (Problem) und Systemprogramme (Computer) 


Anwenderprogramme lösen die konkreten Prob- 
leme des jeweiligen Anwenders und werden auch Benutzer- bzw. 
Arbeitsprogramme genannt oder unter der Bezeichnung Anwender- 
Software zusammengefaßt. Anwenderprogramme können vom Anwender 
selbst erstellt und programmiert oder fremd von einer Soft- 
warefirma bezogen sein. Zwischen diesen beiden Extremen gibt 
es zahlreiche Abstufungen: so z.B. im Falle der individuellen 
Anpassung standardisierter Anwender-Software. Auf das Anpassen 
wie auch Erstellen von Anwenderprogrammen gehen die Abschnitte 
1.3.7 und 1.3.8 näher ein. 


Gegenstück sowie Ergänzung zu den Anwenderprogrammen sind die 
Systemprogramme , deren Gesamtheit als Betriebs- 
system bezeichnet wird, da sie den geordneten Betrieb 
des jeweiligen DV - Sys te ms gewährleisten. Ganz allge- 
mein wird das Betriebssystem oft als OS (Operating System) und 
als DOS (Disk Operating System, da plattenorientiert) bezeich- 
net. Jedes Betriebssystem umfaßt drei Arten von Systemprogram- 
men: 

Die Steuerprogramme steuern das Zusammenwirken 
der Peripherie mit der CPU und die Ausführung eines Programms. 
Die Dienstprogramme bzw. Utilities sind zwar 
nicht unbedingt notwendig, werden aber als unerläßlicher Kom- 
fort zum einfachen und benutzerfreundlichen Betrieb des Compu- 
ters angesehen (ein Programm zur Herstellung einer Disketten- 
kopie gehört eben einfach 'dazu'). Steuer- und Dienstprogramme 
bilden oft eine Einheit: ein Editor z.B. dient zumeist 
nicht nur dem Eintippen und Bearbeiten von Programmtext über 
einen Bildschirm, dem sog. Editieren also, sondern ebenso dem 
Abspeichern dieser Texteingabe auf Diskette oder Band, und da- 
mit der Ein-/Ausgabesteuerung. 

Ein Übersetzerprogramm übersetzt ein in 
einer Programmiersprache wie z.B. BASIC codiertes Anwenderpro- 
gramm in die Muttersprache des Computers, bzw. in die 0/1-Form. 
Das ist vergleichbar mit der Tätigkeit eines Dolmetschers, 
der Sätze aus einer Fremdsprache (z.B. Englisch) in die eige- 
ne Muttersprache (z.B. Deutsch) übersetzt. Ein Computer ver- 
steht so viele Fremdsprachen bzw. Programmiersprachen, wie 
Übersetzerprogramme vorhanden sind. Die meisten Personalcompu- 
ter verstehen die Programmiersprachen BASIC und z.T. PASCAL, 
da die zugehörigen Übersetzerprogramme beim Kauf automatisch 
mitgeliefert werden. 
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Was für das Auto das Benzin bedeutet, um von Astadt nach Bdorf 
fahren zu können, das bedeutet für die Computer-Hardware das 
Betriebssystem ,„, um ein Anwenderprogramm ausfüh- 
ren zu können. In Abschnitt 1.3.6 wenden wir uns dem Betriebs- 
system genauer zu. 


Wie für Daten allgemein Datenstrukturen unterschieden wurden, 
so werden für Programme (Anwender- wie Systemprogramme) übli- 
cherweise vier Programmstrukturen definiert. 


(1) Folgestrukturen: Lineare Prgramme 
(2) Auswahlstrukturen: Verzweigende Programme 
(3) Wiederholungsstrukturen: Programme mit Schleifen 
(4) Unterprogrammstrukturen: Programme mit Unterabläufen 
Vier grundlegende Programmstrukturen 
Diese Programmstrukturen werden als "Bausteine der Software" 


bezeichnet, da die Analyse noch so komplexer Programmabläufe 
stets zu diesen Strukturen als Grundmuster führt. Abschnitt 
1.3.3 erklärt diese Programmstrukturen an kleinen Beispielen 
und Abschnitt 1.3.4 im Zusammenhang mit den Datenstrukturen. 


1.3.2 Datentypen und Datenstrukturen 


Im vorangehenden Abschnitt wurden sieben Daten-Begriffe ange- 
führt, darunter der Begriff des Datentyps. Dieser 
Begriff ist grundlegend für die Programmierung. Wir wollen ihn 
erklären: es gibt einfache und strukturierte, statische und 
dynamische sowie standardmäßig vorhandene und benutzerseitig 
definierbare Datentypen. 


1.3.2.1 Einfache Datentypen als 'Moleküle' 

Einfache Datentypen lassen sich nicht weiter zerlegen und wer- 
den deshalb auch als elementare, skalare sowie unstrukturierte 
Datentypen bezeichnet. Diese Typen enthalten deswegen stes nur 
ein einziges Datum und stellen sozusagen die "'Moleküle' der 


Bezeichnung: Beispiel: Wertebereich: 


CHAR Einzelzeichen D Zeichen (numerisch, al- 
pha, Sonderzeichen) 


INTEGER Ganzzahl 126 Ganze Zahlen 
REAL Dezimalzahl 126528 Zahlen mit Dezimalpunkt 
STRING Text, Zeichen- "DM-Wert'" Gesamter Zeichen- 

kette vorrat des Computers 
BOOLEAN Logisch 1 Wahrheitswerte TRUE (1, 


wahr), FALSE (O,unwahr) 


Fünf einfache bzw. elementare Datentypen 
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Daten dar, da sie vom Programmierer nicht - so ohne weiteres - 
unterteilt werden können. 

Der Datentyp CHAR umfaßt nur e i n Zeichen. Als STRING (Text) 
gilt alles, was zwischen Gänsefüßen steht, also auch der Text 
''99.50 DM Endsumme". Numerische Typen sind INTEGER oder REAL. 
Der Datentyp BOOLEAN kennt nur die 2 Werte TRUE (z.B. Stamm- 
kunde) oder FALSE (kein Stammkunde). 


1.3.2.2 Datenstrukturen als strukturierte Datentypen 


Strukturierte Datentypen sind neben anderen der ARRAY (Liste) 
und der RECORD sowie das FILE. Dabei werden mehrere Daten un- 
ter einem Namen zusammengefaßt abgelegt. Der ARRAY wird auch 
als Feld, Tabelle und Bereich bezeichnet und enthält Komponen- 


Bezeichnung: Beispiel: Kennzeichen: 
ARRAY (eindimensional) [12 3 44 56 21] Komponenten alle mit 
Vektor denselben Datentypen 


(hier 5 Mengen) 


ARRAY (zweidimensional) 
Matrix 


Komponenten alle mit 
denselben Datentypen 
(hier 4*3=12 Preise in 
4 Zeilen u. 3 Spalten) 


RECORD 101 (EN) Komponenten mit unter- 
Verbund, auch Satz FREI (=NAME) schiedl. Datentypen 
65000 (=UMSATZ) (hier: INTEGER, STRING 
u. REAL (Kundensatz)) 


SER () (1) (2) (12) Komponenten sind Teil- 
Menge für SET OF 1..2 mengen der Grundmenge 
FILE über 1000 Sätze Datei als Sammlung von 
Datei der KUNDENDATEI Datensätzen auf einem 
Externspeicher 


Vier wichtige Datenstrukturen 


ten bzw. Elemente gleichen Typs. Beim eindimensionalen ARRAY 
sinddie Elemente in Reihe angeordnet wie im Beispiel die 5 Wo- 
chentagabsatzmengen 12, 3, 44, 56 und 21 „ während sich der 
zweidimensionale ARRAY in zwei Richtungen ausdehnt: waagerecht 
in Zeilen (hier 4 Zeilen) und senkrecht in Spalten (hier 3 
Spalten). Es gibt nicht nur Integer-Arrays (alle Elemente sind 
ganzzahlig) und Real-Arrays (alle Elemente sind Kommazahlen), 


sondern z.B. auch String-Arrays wie 'MO, DI, MI, DO, FR, SA' 
oder "HAMMER, MEISEL, SAEGE' (alle Elemente sind Textworte). 


Im Gegensatz zum ARRAY können im RECORD auch Daten verschiede- 
ner Datentypen abgelegt sein. Der oben wiedergegebene RECORD 
verbindet drei Komponenten vom Typ INTEGER (Kundennummer ganz- 
zahlig), STRING (Kundenname stets Text) und REAL (Kundenumsatz 
als Dezimalzahl) - deshalb auch die Bezeichnung 'Verbund'. In 
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der kommerziellen DV entspricht diese Datenstruktur häufig den 
Datensätzen bzw. Komponenten von Dateien wie hier der Kunden- 
datei. 


Unter einer Datei versteht man allgemein eine Sammlung von Da- 
tensätzen, die getrennt vom Programm auf einem Externspeicher 
(Diskette, Platte, Kassette, Band) als selbständige Einheit 
gespeichert sind. Die Datensätze stellen die Datei-Komponenten 
dar und weisen alle denselben Datentyp auf, d.h. sie sind alle 
z.B. vom Typ RECORD oder alle vom Typ ARRAY. Eine Datei bzw. 
ein FILE kann viel größer sein als der im Hauptspeicher ver- 
fügbare Speicherplatz. 


1.3.2.3 Statische und dynamische Datentypen 


Datenstrukturen können statisch oder aber dynamisch vereinbart 
sein. 

Statische Datentypen behalten während der Programm- 
ausführung ihren Umfang unverändert bei. Beispiel: Beim Beginn 
eines Programms wird vereinbart, daß ein eindimensionales Feld 
bzw. Array mit 5 Elementen zur späteren Aufnahme und Verarbei- 
tung der Absatzmengen für die 5 Wochentage Mo - Fr eingerich- 
tet wird. Statisch heißt, daß die Anzahl der Feldelemente wäh- 
rend der Programmausführung gleich bleibt, während sich ihre 
jeweiligen Inhalte ändern können. 


Bei dynamischen Datentypen muß die Anzahl der Kom- 
ponenten nicht bereits beim Schreiben des Programms festgelegt 
werden, sondern erst im Zuge der Programmausführung. Die Datei 
bzw. das FILE ist stets als dynamischer Datentyp vereinbart. 
Warum? Beim Anlegen einer Kundendatei werden z.B. 455 Kunden 
in 455 Datensätzen auf Diskette erfaßt. Diese Zahl von 455 Da- 
teikomponenten muß veränderbar sein, um neue Kunden aufnehmen 
und Ex-Kunden löschen zu können. Da die Änderungen aber 'tri- 


Datenstrukturen 

STATISCH DYNAMISCH 
Werte ändern sich, niemals Werte sowie Struktur (Anzahl, 
aber die Anzahl. Aufbau) ändern sich. 
Anzahl der Komponenten Anzahl und Aufbau der Kompo- 
ist konstant. nenten ist variabel. 
Belegter Speicherplatz Belegter Speicherplatz 
ist konstant. ist variabel. 
unstrukturiert: unstrukturiert: 
Char, Integer, Real, Zeiger als Hilfsmittel. 
String, Boolean strukturiert: 
strukturiert: Datei (File), 
Feld (Array), Stapel (Stack), Schlange, 
Menge (Set), Gekettete Liste (Linked List), 
Verbund (Record). Binäre und andere Bäume, 


Rekursive Datenstrukturen. 


Einige dynamische Datentypen 
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vialer Natur" sind (so Niklaus Wirth, der Erfinder von PASCAL), 
zählt man eine Datei zu den statischen Datenstrukturen. Die 
dynamischen Datenstrukturen können vom Programmierer selbst 
durch Verknüpfung der standardmäßig angebotenen Datentypen 
konstruiert werden. Das heißt, daß alle dynamischen Strukturen 
auf einer tieferen Komponenten-Ebene irgendwo wieder statisch 
sind; Listen- (z.B. verkettete Liste) und Baumstrukturen ge- 
hören dazu. Zeiger (auch Pointer, Verweis, Referenz genannt) 
werden dabei als Hilfsmittel zur Strukturierung verwendet. Auf 
Zeiger bzw. Listen gehen wir in Abschnitt 3.13 ein. Die Rekur- 
sion als Ablauf, der sich selbst aufruft bzw. zur Ausführung 
bringt, bildet (generiert) dynamisch lokale Variable und wird 
deshalb häufig im Zusammenhang mit dynamischen Datenstrukturen 
genannt. 


1.3.2.4 Vordefinierte und benutzerdefinierte Datentypen 


Die bislang dargestellten einfachen und strukturierten Daten- 
typen sind vordef inier t win dem Sinne, daß sie als 
Standardtypen vom DV-System bereitgestellt werden. Daneben ge- 
statten einige Programmiersprachen wie z.B. PASCAL dem Pro- 
grammierer, selbst eigene Datentypen zu definieren, die dann 
eben alsbenutzerde f in ie rt bezeichnet werden. 


Eine einfache Möglichkeit dafür besteht darin, alle Werte auf- 
zuzählen, die der Datentyp umfassen soll - deshalb der Begriff 
Aufzählungstyp. (Mo,Di,Mi,Do,Fr,Sa,So) ist ein 
solcher Aufzählungstyp für die Wochentage wie auch (6800,6830, 
6900,6907) für einige Postleitzahlbezirke. 


Eine weitere Möglichkeit bietet sich dem Benutzer dadurch, daß 
er einen Datentyp als Unterbereich z.B. eines vordefinierten 
Datentyps definiert - einen Unterbereichstyp. 
Drei Beispiele: 0..7 umfaßt als Unterbereichstyp des Datentyps 
INTEGER die 8 Ganzzahlen 0,1,2,...,7. 

"A".."zZ" umfaßt als Unterbereich des Datentyps CHAR alle Groß- 
buchstaben. 

Di..Fr umfaßt als Unterbereichstyp des obigen Aufzählungstyps 
vier Werktage. Angegeben wird also stets das kleinste und das 
größte Element des gewünschten Unterbereiches. 


Neben den Aufzählungs- und Unterbereichstypen zählen auch die 
Zeigertypen zur Kategorie der benutzerdefinierten Datentypen. 


1.3.2.5 Datentypen bei den verschiedenen Programmiersprachen 


Es hängt vom jeweiligen Programmier-System ab, mit welchen Da- 
tentypen Sie arbeiten können. 

Unstrukturierte Programmiersprachen wie BASIC lassen den Pro- 
grammierer weitgehend allein bei der Bildung von Datenstruktu- 
ren, oder anders: sie unterstützen ihn kaum. Bei BASIC fehlen 
der Verbund bzw. Record (was gerade bei der Dateiverarbeitung 
von Nachteil ist) wie auch die benutzerdefinierten Typen. 
Strukturierte Programmiersprachen stellen die oben angeführten 
Datentypen bereit. Aber auch hier gibt es Unterschiede. So ist 
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PASCAL -was die standardmäßige Vorgabe von Datentypen angeht- 
eher sparsam, aber die wenigen Datentypen können sehr flexibel 
zum Entwurf komplexer Datenstrukturen genutzt werden. Sprachen 
wie ADA und auch MODULA 2 sind weniger sparsam ausgestattet. 


1.3.3 Programmstrukturen 


Die vier Programmstrukturen Folge, Auswahl, Wiederholung und 
Unterprogramm sind die grundlegenden Ablaufarten der Informa- 
tik überhaupt. Grundlegend in zweifacher Hinsicht: 

Zum einen gelangt man beim Auseinandernehmen noch so umfang- 
reicher Programmabläufe immer auf die vier Programmstrukturen 
als Grundmuster ( Ana 1 y s e von Programmen). 

Zum anderen kann umgekehrt jeder zur Problemlösung erforderli- 
che Programmablauf durch geeignetes Anordnen dieser vier Pro- 
grammstrukturen konstruiert werden ( Synthese von Pro- 
grammen). 


1.3.3.1 Folgestrukturen 


Jedes Programm besteht aus einer Aneinanderreihung von Anwei- 
sungen an den Computer (vgl. Abschnitt 1.1.1). Besteht ein be- 
stimmtes Programm nur aus einer Folgestruktur, 
dann wird Anweisung für Anweisung wie eine Linie abgearbeitet. 
Man spricht deshalb auch vom linearen Ablauf bzw. unverzweig- 
ten Ablauf, vom Geradeaus-Ablauf oder von einer Sequenz. Das 
Beispiel zeigt ein Programm, bei dem 5 Anweisungen in Folge 
ausgeführt werden: Über Tastatur wird ein Rechnungsbetrag ein- 
gegeben, um nach der Berechnung den Skonto- und Überweisungs- 
trag als Ergebnis am Bildschirm auszugeben. Das Ablaufbeispiel 
wird als Entwurf, als Dialogprotokoll sowie als Struktogramm 
dargestellt. 


Erst Anweisung 1 ausführen, dann Anweisung 2, dann ... 


Beispiel in Entwurfsprache: Allg. Ablauf in Entwurfsprache: 
Ausgabe Fragestellung 
Eingabe RECHNUNGSBETRAG 
berechne SKONTOBETRAG 
berechne UEBERWEISUNGSBETRAG 
Ausgabe der Ergebnisse 


Beispiel als Dialogprotokoll: Allg. Ablauf als Struktogramm: 


RUN 
RECHNUNGSBETRAG =? 
200 
SKONTOABZUG: 6 DM a 


UEBERWEISUNG: 194 DM 


Ablauf mit einer Folgestruktur 
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Um unabhängig von den Formalitäten der vielen Programmierspra- 
chen Programmabläufe beschreiben zu können, verwenden wir eine 
einfache Entwurfsprache (auch algorithmischer 
Entwurf oder Pseudocode genannt), die umgangssprachlich formu- 
liert wird. Im Beispiel werden die umgangssprachlichen Anwei- 
sungsworte "Ausgabe', "Eingabe' und "berechne' verwendet. Die 
Beschreibung von Abläufen mittels einer Entwurfsprache ist in 
der Informatik weit verbreitet. 

Dass Dialogprotokoll zum Ablaufbeispiel gibt 
den 'Dialog' zwischen Benutzer (der Werte eintippt) und Compu- 
ter (der Information ausgibt) wieder, wie er bei der Programnm- 
ausführung am Bildschirm erscheint bzw. protokolliert wird. Im 
Beispiel gibt der Benutzer den Befehl RUN ein, worauf der Com- 
puter mit der Ausgabe RECHNUNGSBETRAG =? antwortet; nach der 
Benutzereingabe von 200 rechnet der Computer (im Dialogproto- 
koll nicht sichtbar) mit 3%, um dann Skonto- und Überweisungs- 
betrag in zwei Ausgabezeilen am Bildschirm anzuzeigen. 

Neben dem Entwurf und dem Dialogprotokoll ist das Programmbei- 
spiel zeichnerisch als Struktogramm dargestellt. 


1.3.3.2 Auswahlstrukturen 


Die Auswahlstrukturen dienen dazu, aus einer 
Vielzahl von Möglichkeiten bestimmte Fälle auszuwählen: hier 
sind es die beiden Fälle 'Skontoabzug bei Bezahlung in weniger 
als 8 Tagen nach Rechnungserhalt (Bedingung TAGE<8 erfüllt)' 
sowie "Zahlung rein netto bei späterer Überweisung (Begingung 
TAGE<8 nicht erfüllt)'. Dieses Beispiel bezeichnet man deshalb 
auch ls Zweiseitige Auswahl. 


Wenn Bedingung 1 erfüllt ist, dann führe Anweisung 2 aus, 
sonst führe Anweisung 3 aus, um dann gemeinsam fortzufahren. 


Beispiel in Entwurfsprache: Allg. Ablauf in Entwurfsprache: 

Ausgabe der Fragestellung Anweisung 1 

wenn TAGE<8 wenn Bedingung 1 erfüllt 
dann überweise mit Skonto dann Anweisung 2 
sonst überweise rein netto sonst Anweisung 3 

Ende-wenn Ende-wenn 

2 Bsp. als Dialogprotokoll: Allg. Ablauf als Struktogramm: 

RUN 

ANZAHL DER TAGE =? Anweisung 1 

6 


SKONTOABZUG MÖGLICH 


Bedingung 
erfüllt? 


RUN 
ANZAHL DER TAGE =? Anweisung 2 Anweisung 3 
14 Fall: netto Fall: Skonto 


ZAHLUNG REIN NETTO 


Ablauf mit einer Auswahlstruktur 
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Daneben gibt es die Einseitige Auswahl mit 
nur einem Fall und die Mehrseitige Auswahl 
bzw. Fallabfrage mit mehr als zwei Fällen. 

Auswahlstrukturen werden auch als Alternativstrukturen, Abläu- 
fe mit (Vorwärts-)Verzweigungen bzw. als Selektion bezeichnet. 


1.3.3.3 Wiederholungsstrukturen 


Wiederholungsstrukturen führen zu Pro- 
grammschleifen, die mehrmals durchlaufen werden. Im Beispiel 
wird die Anweisungsfolge 'Eingabe', 'berechne', "berechne! und 
'Ausgabe' wiederholt durchlaufen, bis die Bedingung RECHNUNGS- 
BETRAG = 0 erfüllt ist, die über Tastatur als Signal zum Been- 


Wiederhole die Anweisungen 1,2,3,... immer wieder, bis eine 
bestimmte Bedingung zum Beenden der Schleife erfüllt ist. 


Beispiel in Entwurfsprache: Allg. Ablauf in Entwurfsprache: 
Ausgabe Überschrifttext Anweisung 0 
wiederhole wiederhole 

Eingabe RECHNUNGSBETRAG Anweisung 1 

wenn BETRAG=0 dann Ende Anweisung 2 

berechne Skontobetrag De 

berechne ÜBERWEISUNGSBETRAG Anweisung n 

Ausgabe Ergebnis wenn Bedingung dann Ende 
Ende-wiederhole Anweisung n+1 
Ausgabe Hinweis Programmende Anweisung n+2 


Beispiel als Dialogprotokoll: Ende-wiederhole 


RUN 
PROGRAMM MIT SCHLEIFE Allg. Ablauf als Struktogramm: 


RECHNUNGSBETRAG =? 
Anweisung(en) 


100 
UEBERWEISUNGSBETRAG: 97 DM 
Ende-Bedingung 


RECHNUNGSBETRAG =? 
200 
UEBERWEISUNGSBETRAG: 194 DM 


RECHNUNGSBETRAG =? 
0 Anweisung(en) 
PROGRAMMENDE 


Ablauf mit einer Wiederholungsstruktur 


den der Schleife eingetippt wird. Wiederholungsstrukturen wer- 
den auch als Repetitionen und Iterationen bezeichnet. Auf die 
verschiedenen Schleifentypen wie 

- abweisende und nicht-abweisende Schleife 

- Zählerschleife 

- offene und geschlossene Schleife 
gehen wir in Abschnitt 3.1.3 an Beispielen ausführlicher ein. 
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1.3.3.4 Unterprogrammstrukturen 


Unterprogrammstrukturen bieten sich in- 
mer dann an, wenn eine Aufgabe während eines Programmablaufes 
mehrmals benötigt wird, so z.B. die im Beispiel wiedergegebene 
Aufgabe "Runde kaufmännisch auf zwei Dezimalstellen'. Auch zur 


Führe Anweisungen Al aus, unterbreche Tätigkeit A, um Anwei- 
sungen B auszuführen, kehre zurück und fahre mit der Ausführ- 
ung der Anweisungen A2 fort (A im Haupt-, B im Unterprogramm). 


Beispiel in Entwurfsprache: 


Eingabe RECHNUNGSBETRAG 
berechne SKONTOBETRAG 
Aufruf Unterprogramm RUNDEN ——>runde BETRAG auf 2stellig 


berechne UEBERWEISUNGSBETRAG ersetze BETRAG durch den 
| Ausgabe Ergebnis gerundeten Bug 


rufendes (Haupt-)Programm aufgerufenes Unterprogramm 


Ablauf mit Unterprogrammstruktur 


übersichtlichen Gliederung eines komplexen Programmes und zur 
Programmentwicklung im Team (jeder Mitarbeiter entwickelt ei- 
nen Teil des Programmes) werden Unterprogramme verwendet. 

Auf die möglichen Unterprogrammarten wie Prozeduren und Funk- 
tionen gehen wir in Abschnitt 3.1.4 konkret an Beispielen ein. 


1.3.3.5 Mehrere Strukturen in einem Programm 


Die meisten Programme umfassen natürlich mehrere dieser Struk- 
turen. Dabei sind zwei Anordnungsprinzipien zu unterscheiden. 
Programmstrukturen können entweder hintereinander oder aber 
geschachtelt angeordnet sein. 
- Anordnunn hintereinander: 
Mit der jeweils folgenden Struktur wird erst dann begonnen, 
nachdem die gerade in Ausfühung befindliche Struktur beendet 
wurde. 
- Anordnung geschachtelt: 
Mit der äußeren Struktur kann erst fortgefahren werden,nach- 
dem die innere Struktur vollständig ausgeführt wurde. Teil- 
weises Einschachteln bzw. Überlappen von Programmstrukturen 
ist folglich nicht erlaubt. 


1.3.4 Datenstrukturen und Programmstrukturen als Software-Bausteine 


In den beiden vorangegangenen Abschnitten haben wir die wesent- 
lichen Datenstrukturen ( wa s wird verarbeitet?) sowie Pro- 
grammstrukturen ( w i e ist zu verarbeiten?) allgemein darge- 
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stellt. Diese Strukturen mit ihren unterschiedlichen Ausprä- 
gungen können als Software - Bausteine auf- 
gefaßt werde, da aus ihnen bausteinartig die zur Lösung eines 
Problems erforderlichen Abläufe gebildet werden. 


Dear treunesaterzuskste usrreon 


einfach: strukturiert: 


CHAR, Zeichen ARRAY (Feld, Bereich) 

INTEGER, Ganzzahl RECORD, Verbund 

REAL, Dezimalzahl SET, Menge 

STRING, Text FILE, Datei 

BOOLEAN, Logisch benutzerdefinierte Daten 
SSORESSTIZIWTAZRTIE, 225 EBAY E DERSTENEE 

Folge: Wiederholung: 

linearer Ablauf nicht-abweisend, 


abweisend, Zählerschleif 
Auswahl: 


einseitig, zweiseitig, Unterprogramm: 
mehrseitig (Fallabfrage) Prozedur, Funktion 


PEr20o2g2 rau name SSE rauskzatrzuerzeen 
Daten- und Programmstrukturen als Software-Bausteine 


Wie werden Daten(-strukturen) im Hauptspeicher abgelegt und 
verarbeitet? Wie werden Programm(-strukturen) abgespeichert? 
Wie sind Programme aufgebaut? Zu diesen Fragen kommen wir nun. 


1.3.4.1 Modell des Hauptspeichers RAM als Regalschrank 


In dem als Speicher RAM ausgebildeten Hauptspeicher befinden 
sich die zur Verarbeitung benötigten Daten und Programme. Den 
RAM können wir uns als Regalschrank mit sehr vielen Speicher- 
stellen vorstellen, in die je ein Zeichen abgelegt werden kann. 
Ein RAM mit 64 KB (vgl. Abschnitt 1.2.3.4) umfaßt genau 65536 
solcher Speicherstellen (64 * 1024), die von 0 an fortlaufend 
durchnumeriert sind, wobei die Nummern 0,1,2, ... ‚65535 die 
tatsächlichen Ad re s sen der Speicherstellen darstellen. 


Soll ein Rechnungsbetrag über 200.50 DM von Adresse 2210 oder 
von Adresse 58934 an gespeichert werden? Um diese tatsächli- 
chen Adressen müssen wir uns zumeist nicht kümmern. Wie allen 
Daten geben wir dem Rechnungsbetrag einen Namen, z.B. BETRAG, 
der dann als symbolische Adresse zur Spei- 
cherung dient. Der Computer sucht sich selbständig einen für 
BETRAG freien Speicherplatz und legt die 200.50 dorthin ab. 
Wo soll das zugehörige Programm abgespeichert werden? Auch da- 
rum brauchen wir uns nicht zu kümmern. Wir geben dem Programm 
einen Namen wie z.B. RECHNUNG]! „ und der Computer reserviert 
selbständig die notwendige Anzahl von Speicherstellen und be- 
stimmt dann einen geeigneten Speicherort. 

Daten wie Programme werden also über ihre Namen angesprochen. 
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wieder zum Modell des RAM als Regalschrank: 

Einige Regale sind leer. In ihnen ist nichts gespeichert. Auf 
anderen Regalen aber befinden sich Schachteln, und zwar Daten- 
Schachteln mit Daten als Inhalt sowie Programm-Schachteln mit 
Anweisungen als Inhalt. Jede Schachtel ist mit dem von uns je- 
weils gewählten Namen beschriftet.urch Angabe dieser Namen ist 
es uns möglich, Inhalte von Schachteln zu lesen und zu ändern. 
Für die ausreichende Größe einer Schachtel (=Anzahl von Spei- 
cherstellen) sowie das passende Regal (=tatsächliche Adresse) 
sorgt der Computer selbst. ä 


1.3.4.2 Daten als Variablen und Konstanten 


Daten sprechen wir mit Namen an. Dies gilt für veränder- 
liche bzw. variable Daten, für Variablen, wie auch 
für feste bzw. konstante Daten, also für Konstanten. 


Das Einrichten von Daten-Schachteln bezeichnet man als Dekla- 
ration oder als Vereinbarung . Für eine Variable 
müssen wir vereinbaren, welchen Namen (z.B. den Namen BETRAG) 
und welchen Datentyp (z.B. Dezimalzahl bzw. REAL) sie haben 
soll. Mit dem Datentyp wird der Wertebereich an- 
gegeben. Den Inhalt als den Wer t der Variablen können wir 
dann später im Rahmen des jeweiligen Wertebereichs (z.B. der 


BETRAG 7 —-—-—- — — _ ELTRAG 200.50 


als Name — — "als derzeitiger 
Wert bzw. Inhalt 
Dezimalzahl _— -— 
als Datentyp 


Vereinbarung in Entwurfsprache: Variable namens BETRAG vom 
ae ir I ee Tr Datentyp '"Dezimalzahl' zur 
BETRAG: Dezimalzahl bzw. REAL späteren Aufnahme von de- 

a Sn Ze I ee oz nee zimaligen Werten vereinbart 


Name, Datentyp und Wert kennzeichnen eine Variable 


Dezimalzahlen) beliebig verändern. Jede Variable weist somit 
die drei Komponenten Name, Datentyp (=Wertebereich) und Inhalt 
bzw. Wert (= augenblicklicher Schachtelinhalt) auf. Schachteln 
können sehr klein (wie die für den BETRAG) oder auch sehr um- 
fangreich (wie z.B. ein String-Array mit 100 Zeilen und mit 5 
Spalten für 100*%5=500 Artikelmengen) sein. 


Für eine Konstant e müssen wir einen Namen vereinba- 


ren (z.B. den Namen Si für den Skontosatz) und einen konstan- 
ten Wert (z.B. 3 %). 


Die Vereinbarungen von Variablen und von Konstanten werden vom 
Programmierer im Rahmen der Programmerstellung getroffen; sie 
stehen am Anfang: der Computer muß eine Daten-Schachtel zu- 
erst einrichten, um dann mit ihr gemäß den im Programm weiter 
angegebenen Anweisungen arbeiten zu können. 
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3 als 
= "konstanter Wert 


s1 ee 
als Name 


Vereinbarung in Entwurfsprache: In Konstante namens SI 
rer wird die Zahl 3 fest ge- 
Sulse- 03 speichert als %-Satz 


Name und fester Wert kennzeichnen eine Konstante 


1.3.4.3 Programm mit Vereinbarungsteil und Anweisungsteil 


Jedes Programm weist neben dem Programmnamen zwei weitere Be- 
standteile auf: den Vereinbarungsteil und den Anweisungsteil. 


Der Programmname dient zum Aufrufen des Programms im RAM als 
dem Internen Speicher wie auch auf Diskette bzw. Kassette als 
Externen Speichereinheiten. 

Im Vereinbarungst ei 1 legt der Programmierer 
fest, welche Variablen und Konstanten einzurichten sind. In 
Abschnitt 3 werden wir sehen, daß ggf. auch selbstdefinierte 
Datentypen sowie Unterprogramme (Prozeduren und Funktionen) 
vereinbart werden können. 

In den Programmiersprachen wird unterschiedlich vereinbart. So 
muß in PASCAL der Vereinbarungsteil in jedem Fall programmiert 
werden. In BASIC können Vereinbarungen auch durch die Wahl der 
Variablen getroffen werden. 


Programmes. 1. Programmname 
Vereinbarungsteil 2. Vereinbarungsteil: 
von Konstanten |... === --- - 
von selbstdefinierten Typen Bedeutung aller Namen 
von Variablen festlegen 
von Funktionen (wa s wird später 
von Prozeduren verarbeitet?) 


Anweisungsteil 3. Anweisungsteil: 
zur Eingabe 00000... === === - 
zur Ausgabe (z.B. Drucker) Anweisungen festlegen 
zur Wertzuweisung (EwsiImes rstezu 
zur Ablaufsteuerung (z.B. IF) verarbeiten?) 


Name, Vereinbarungsteil und Anweisungsteil als Bestandteile 
eines jeden Programms 


Der Anweisungsteil als Folge von Anweisungen 
an der Computer enthält das eigentliche Programm. Auf die ein- 
zelnen Anweisungsarten zur Eingabe, Ausgabe, Wertzuweisung und 
Ablaufsteuerung gehen wir in Abschnitt 3.1 an Beispielen ein. 


36 1 Computer allgemein 


1.3.5 Datei und Datenbank 


Eine Datei stellt die typische Datenstruktur zur langfristigen 
Speicherung von Massendaten in der kommerziellen DV dar. Am 
Beispiel der in Abschnitt 1.3.2.2 bereits angesprochenen Kun- 
dendatei wollen wir auf die Dateiverarbeitung 
eingehen (man spricht dabei auch von Dateiverwaltung oder von 
File Handling (File für Datei)). 

Diese Kundendatei ist bewußt sehr einfach aufgebaut: 

Zu jedem der derzeit 1580 Kunden einer Handelsfirma werden die 
drei Angaben NUMMER, NAME und UMSATZ als Kundendatei auf einem 
Externspeicher abgelegt. Man sagt auch: Die Kundendatei umfaßt 
derzeit 1580 Datensätze (Kundensätze bzw. Sätze), wobei jeder 
Satz aus drei Datenfeldern als Komponenten besteht. Für diese 
Felder wiederum sind Variablen mit unterschiedlichen Datenty- 
pen vereinbart: eine Variable namens NUMMER für die Kundennum- 
mer ganzzahlig, eine Variable NAME als Text und eine Variable 
UMSATZ für den getätigten DM-Umsatz vom Datentyp Dezimalzahl. 
Die Datensätze stellen jeweils Verbunde (Records) dar. Der Da- 


4 Datensätze ausgedruckt: Datensatz als Verbund vereinbart: 
(ONZERONESEIRERT 6500.00 KUNDSATZ: Verbund bzw. Record 
(2) 104 MAUCHER 295.60 NUMMER: Ganzzahl 
(3) 109 HILDEBRANDT 4590.05 NAME: Text 

(4) 110 AMANN 10.178275 UMSATZ: Dezimalzahl 
580 500 800 Sc Ende-Verbund 


Vereinbarung der Datei: 


KUNDDATEI: Datei (File) mit Datensätzen vom Typ KUNDSATZ 


Vereinbarung und Inhalt der KUNDDATEI 


tensatz hat den Namen KUNDSATZ und die Datei heißt KUNDDATEI. 
Wie die obigen 4 Sätze zeigen, sollen die Kunden nach Kunden- 
nummern aufsteigend sortiert gespeichert sein. Mit (1),(2),... 
werden die Datensatznummern innerhalb der Datei angegeben. 


Eine Datei umfaßt mehrere Datensätze. Jeder Satz hat mehrere 
Datenfelder. Jedes Feld besteht aus mehreren Zeichen und jedes 
Zeichen wird als Byte als Kombination von 8 Bits gespeichert. 


Datei (File) ... namens KUNDDATEI mit 
derzeit 1580 Datensätzen. 

Datensatz (Record) ... mit drei Datenfeldern 
NUMMER, NAME und UMSATZ. 

Datenfeld (Field) ... NAME mit 11 Zeichen 
maximal. 


Zeichen, Byte (Character) ... "R" als zweites Zeichen 
VOUSSSERPIE® 

Bat l0zodereln)  OralsilrsBiEeimgByte 
01030010 EEUTEERN“ 


Aufbau einer Datei: Datei-Satz-Feld-Zeichen-Bit 
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1.3.5.1 Zugriffsart, Speicherungsform und Verarbeitungsweise 


Auf eine Datei wird stets datensatzweise zugegriffen, sei es 
in den RAM hin e in (Lesen = E i n gabe) oder aus dem RAM 
hin aus (Schreiben = A u s gabe). Entsprechend spricht man 
vom lesenden Zugriff (vom Externspeicher in den RAM) oder vom 
schreibenden Zugriff (vom RAM auf den Externspeicher). Ist oh- 
ne weiteren Zusatz vom Zug ri f f die Rede, so meint man 
damit das Lesen von Sätzen. Zwei zZzugriffsarten 
sind zu unterscheiden: der direkte und der indirekte Zugriff. 


Der direkte zugriff läßt sich mit der Schall- 
platte vergleichen: Will man z.B. das 7. Musikstück hören,kann 
der Tonarm direkt bei diesem gewünschten Stück aufgesetzt wer- 
den. Entsprechend kann bei der Platte (Magnetplatte, Diskette) 
in der DV ein bestimmter Datensatz direkt durch Angabe seiner 
Datensatznummer als Adresse bzw. "Hausnummer' in den RAM gele- 
sen werden. 

Der indirekte zugri f£ £ ist -wie beim Tonband- 
umständlicher: das Tonband muß z.B. zum 7. Musikstück gespult 
werden; wir können nur in der Reihenfolge zugreifen, in der 
früher einmal aufgenommen wurde. Dementsprechend muß in der DV 
Datensatz für Datensatz gelesen werden, bis z.B. der 7. Kunde 
gefunden ist. 

Wir halten fest: Beim Band (Magnetband, Kassette) kann nur in- 
direkt auf den Datensatz einer Datei zugegriffen werden, wäh- 
rend bei der Platte (Magnetplatte, Winchesterplatte, Diskette) 
auch direkt zugegriffen werden kann. Die Platte wird deshalb 
auch Direktzugriff - Speicher genannt, 
im Gegensatz zum Band als segquent ie 1 1 em Speicher 
(Sequenz = Reihenfolge). 


ZUGRIFFSARTEN: 
indirekt, direkt 
men un 
Hauptspeicher Externer 
RAM Speicher 
> Diskette, 
SPEICHERUNGSFORMEN: Hard Disk, 
seriell, Kassette, 
VERARBEITUNGSWEISEN: gestreut, 
sortiert, indiziert, 
unsortiert verkettet 


Zugriff, Speicherung und Verarbeitung der Datei 


Der Begriff der Speicherungsform bezieht sich 
auf das Abspeichern bzw. Schreiben von Sätzen aus dem RAM auf 
die Datei. 

Seriell speichern heißt starr fortlaufend speichern: 
der nächste Neu-Kunde wird als nächster Kunde hinter den zuvor 
gerade geschriebenen Datensatz gespeichert. 

Ges t re u t speichern heißt, daß die Sätze zufällig über 
die Plattenoberfläche hinweg streuend abgelegt werden. Zur Er- 
klärung folgendes Beispiel: In einem Betrieb seien die Kunden- 
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nummern 101,104,109,110,...,50000 vergeben. Würde man nach dem 
Verfahren "Kundennummer ergibt Datensatznummer" vorgehen, so 
würde man auf der Platte 50000 Speicherorte für die nur 1580 
Kundensätze zu reservieren haben - wahrlich verschwenderisch. 
Was tun? Man versucht, die Anzahl der Speicherorte durch die 
Wahl eines geeigneten Adreßrechungsverfahrens zu verdichten wie 
z.B. mit dem Divisions-Rest-Verfahren. Das führt dann dazu,daß 
Kunde 48236 als 237. Satz und Kunde 3973 als 1831. Satz abge- 
legt ist, daß also gestreut gespeichert ist. Der Nachteil sol- 
cher Verfahren: Für mehrere Kundennummern kann sich ein und 
dieselbe Datensatznummer ergeben. 


Nach der seriellen Speicherung und der gestreuten Speicherung 
nun zur indiziert en Speicherung als dritter Form. 
Zur Erklärung folgendes Beispiel: Zusätzlich zu unserer Kun- 
dendatei wird in einer Indexdat ei zu jedem Namen 
die Datensatznummer gespeichert, unter der dieser Name in der 
Kundendatei zu finden ist: Kunde MAUCHER so z.B. als 2. Satz. 
Wie die Kundendatei (zur Unterscheidung Haupt- oder Datendatei 
genannt) 4 Kundensätze hat, so hat auch die Indexdatei 4 In- 
dexsätze. Dann wird diese Indexdatei nach Namen sortiert abge- 
speichert. Möchte man sich nun später alle Kunden nach Namen 
sortiert ausdrucken lassen,geht man wie folgt vor: 

1. Indirekter Zugriff auf den jeweils nächsten Indexsatz der 

sortierten Indexdatei. 

2. Direkter Zugriff auf den Kundensatz, dessen Datensatznum- 

mer gerade zuvor aus der Indexdatei gelesen wurde. 

3. Mit 1. fortfahren, bis Ende der Indexdatei erreicht ist. 
Eine Indexdatei kann als Inhaltsverzeichnis aufgefaßt werden, 
das - ähnlich den Seitenangaben in einem Buchinhaltsverzeich- 
nis - die Satznummern der zugehörigen Datendatei anzeigt (in- 
dizieren bedeutet anzeigen). Zu unserer Kundendatei sind zu- 
mindest drei Indexdateien möglich: je eine für die NUMMER, für 
den NAMEn und für den UMSATZ. 


Kundendatei mit den Indexdatei für Indexdatei für 
ersten 4 Datensätzen: NAME unsortiert: NAME sortiert: 


FREI 6500.00 
MAUCHER 295.60 


FREI 
MAUCHER 


AMANN 
FREI 


HILDEBRANDT 4590.05 


1 4 

2 1 

HILDEBRANDT 3 HILDEBRANDT 3 

AMANN BONS & 2 


AMANN MAUCHER 


Hauptdatei mit hier 3 Indexdateien mit stets 2 Datenfeldern: 
Datenfeldern NUMMER, NAME als Schlüsselfeld und SATZNUMMER 
NAME und UMSATZ. (der Hauptdatei) als Adreßfeld. 


Kundendatei als Datendatei mit zwei Indexdateien 


Das Anlegen einer Indexdatei gestattet einen schnellen Zugriff 
sowie vielseitige Verarbeitungsarten. 

Zunächst zur Geschwindigkeit: In der kaufmännischen Praxis ist 
ein Kundensatz mit z.B. 300 Zeichen viel länger als unser Bei- 
spielsatz, der Indexsatz hingegen unverändert kurz, da er ja 
nur die beiden Komponenten NAME als Schlüsselfeld und SATZNR 
als Adreßfeld umfaßt. Das Durchsuchen oder Sortieren einer In- 
dexdatei geht somit schneller vonstatten als das der zugehöri- 
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den Datendatei. Zumal die Indexdatei aufgrund ihres geringen 
Umfanges dabei komplett im Hauptspeicher gehalten werden kann, 
während die Datendatei aufgrund ihrer Größe zum Sortieren wie- 
derholt ein- und ausgelagert werden muß. 

Ein zweiter Vorteil besteht in der Vielseitigkeit: Hat man zu 
den Schlüsseln NAME, UMSATZ, PLZ, WOHNORT, VERTRETER, RABATT, 
KUNDESEIT, OFFENERPOSTEN je eine Indexdatei sortiert angelegt, 
so können die Kunden iederzeit nach diesen 8 Ordnungsbegriffen 
sortiert in einer Übersicht ausgedruckt werden. Ebenso kann 
e i n bestimmter Kunde über schnelle Suchverfahren wie etwa 
über das 'binäre Suchen' am Bildschirm angezeigt werden. 


Als vierte Speicherungsform wurde oben dieverkettete 
Speicherung genannt. Dazu folgendes Beispiel: Der Kundensatz 
wird um 2 Datenfelder erweitert, in denen Zeiger bzw. Pointer 
gespeichert sind, die auf den jeweils nächsten Kundensatz zei- 


Kunden- Kunden- Kunden- Zeiger Zeiger 
nummer: name: umsatz: für Name: für Umsatz: 


FREI 6500.00 
MAUCHER 2900ER 


HILDEBRANDT 4590.05 
AMANN A 1018.75 


DPDwmNm— 


Kundendatei mit Verkettung über zwei Zeigerfelder 


gen. Das erste Zeigerfeld verkettet die Sätze nach Namen auf- 
steigend sortiert: Nach dem Lesen von AMANN (A für Ankeradres- 
se) verweist Zeigerfeldinhalt 1 auf FREI, der dann eingelesen 
wird; dann zeigt Zeiger 3 auf HILDEBRANDT als 3. Satz, worauf 
mit Zeiger 2 auf MAUCHER zugegriffen wird, dessen Zeiger 0 das 
Ende der Kette signalisiert. Über diese Kette 3-0-2-1 können 
die Kunden rasch alphabetisch geordnet aufgelistet werden. Die 
zweite Kette 0-4-1-3 verkettet Kunden nach deren Umsatz geord- 
net. 

Das Beispiel zeigt, daß über die verkettete Speicherung belie- 
big viele log i s ch e Ordnungen gebildet werden können, 
ohne die Datensätze dazu physisch auf dem Externspei- 
cher umspeichern zu müssen. 


Nach den zwei Zugriffsarten und den vier Speicherungsformen 
nun zu den zwei Verarbeitungsweisen, zur 
sortierten und zur unsortierten Verarbeitung: 

Eine Datei sortiert verarbeiten heißt, daß eine phy- 
sisch oder logisch zusammenhängende Folge von Datensätzen ver- 
arbeitet wird wie z.B. beim Auflisten des gesamten Dateiinhal- 
tes oder bei der Gehaltsabrechnung für alle Angestellten eines 
Betriebs. Wenn die Bewegungsdatei (Lagerzugänge und -abgänge) 
genauso sortiert vorliegt wie die Bestandsdatei (Artikel ins- 
gesamt), wird von einer sortierten Verarbeitung gesprochen. 
Beider unsort iert en Verarbeitung werden einzelne 
Sätze einer Datei ggf. mehrmals direkt angesprochen wie z.B. 
beim Verarbeiten einzelner Kundenaufträge oder beim Auskunfts- 
erteilen über den derzeitigen Kontostand. 
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1.3.5.2 Vier Organisationsformen von Dateien 


Je nach Kombination von Zugriffsart (Eingabe eines Datensatzes 
vom Externspeicher in den Hauptspeicher RAM), Speicherungsform 
(Ausgabe vom RAM auf den Externspeicher) und Verarbeitungswei- 
se (Verarbeitung intern im Hauptspeicher) kann eine Vielzahl 
von Datei - Organisationsformen unterschieden werden. Folgende 
vier Organisationsformen werden heute am 
häufigsten genannt - wenn auch kaum einheitlich ausgelegt. 


Seesxgsur ernten elle Dear Et ein: 

Indirekter Zugriff, serielle Speicherung und sortierte 
Verarbeitung bei (zumeist) sortierter Speicherungsfolge. 
Typische Band-Datei (Magnetband, Kassette). 


Deisrse Kitezeingersnetete 2 NDZautnesie: 

Direkter Zugriff, oft gestreute Speicherung und unsortierte 
wie ggf. sortierte Verarbeitung. 

Typische Platten-Datei (Magnetplatte, Diskette). 
Bezeichnungen: Random-Datei, Relative Datei. 

Ten dwense 2 EsBengpulrernstemivemlalrer DE artEsente 
Kombination von sequentieller und Direktzugriff-Datei. 
Alle Zugriffsarten, Speicherungsformen und Verarbeitungs- 
weisen; kennzeichnend ist die indizierte Speicherung. 


Vveesrskresit. tere: ter Dia ES: 
Indirekter Zugriff, verkettete Speicherung und sortierte 


Verarbeitung. 
Vier Organisationsformen von Dateien 


Die rein sequentiell organisierte Datei wird mit der zunehmen- 
den Verbreitung von Wechselplatte, Festplatte und Diskette im- 
mer mehr durch die Direktzugriff-Datei und die index-sequenti- 
elle Datei verdrängt. 


1.3.5.3 Grundlegende Abläufe auf Dateien 


Die Dateiverarbeitung umfaßt viele Abläufe: So müssen Daten 
zunächst einmal erfaßt bzw. computerlesbar gemacht werden, um 
sie dann auf einem Externspeicher abzulegen, später wieder zu 
suchen, abzuändern, auszudrucken, zu löschen usw. Zusammenfas- 
send können wir hierzu 11 grundlegende Abläufe zum Einrichten, 
Verwalten und Auswerten von Dateien unterscheiden. Jedes kom- 
merzielle Datei-System mit dem Anspruch auf eine universelle 
Verwendbarkeit wird diese Abläufe bereitstellen. 


In Abschnitt 1.3.1.1 wurden Bestands- und Bewegungsdaten sowie 
Stamm- und Änderungsdaten unterschieden. Entsprechend gibt es 
dem Inhalt nach vier Dateiarten: die Bestandsdatei (z.B. Arti- 
kelbestandsdatei), die Bewegungsdatei (z.B. Zu-/Abgänge von 
Artikellagerbeständen), die Stammdatei (z.B. Kundenstammdatei) 
und die Änderungsdatei (z.B. Änschriftsänderung von Kunden). 
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I Am Ieergeenn,s: 
Datei auf einem Externspeicher leer einrichten. 


2. Neu sacöhsrrzesisbreone: 
Datensätze erfassen und neu in die Datei hinzufügen. 


Ba KIregswerne: 
Einen oder mehrere Datensätze in den Hauptspeicher 
lesen und am Bildschirm anzeigen oder am Drucker 
auflisten. 


4. WBeerwreigiein 
Zu- und Abgänge mengenmäßig (Lagerbestandsfortschrei- 
bung) oder wertmäßig (Kontoführung) aktualisieren. 


Dane ciresrene: 
Sätze löschen (entfernen) oder inhaltlich abändern. 


6%, (SCOSTHeeITresrteune“ 
Sätze in auf- oder absteigende Sortierfolge bringen. 


Im AMeSEsSehhy ean.® 
Dateien zu einer Datei sortiert zusammenfügen. 


8 ERmorpaureer een: 
Datei abbildgetreu (Back-Up) oder verändert kopieren. 


ge ARUESEvVrAChelGern: 
Sätze, die bestimmten Bedingungen genügen, heraussuchen 
bzw. selektieren. 


NORs AK 1GaESsESsw er neze ver wennee 
Datei nach bestimmten Größenklassen auswerten. 


el EV erzEdenecahet einer: 
Sätze nach Merkmalen gruppieren und Gruppensummen 
bilden (Gruppenwechsel),. 


Grundlegende Abläufe (Algorithmen) auf Dateien 


Die elf grundlegenden Abläufe beziehen sich auf diese vier Da- 
teiarten gleichermaßen. Man spricht auch von den grundlegenden 
Datei - Algorithmen (ein Algorithmus ist eine 
Folge von Anweisungen, die in einer endlichen Schritt-Anzahl 
zur Lösung eines Problens führt). 

Zum Ablauf 'Bewegen': Bewegungen werden in der Regel gesammelt 
(gestapelt), als Bewegungsdatei gespeichert und dann z.B. zum 
Wochenende in einem Arbeitsgang verarbeitet. 

Zum Ablauf 'Ändern': Sätze können tatsächlich (=physisch) oder 
nur durch eine bestimmte Markierung wie BESTAND=-99 (=logisch) 
gelöscht werden; die Inhaltsänderung kann ein oder mehrere 
Datenfelder betreffen. 

Zum Ablauf 'Sortieren': Es kann intern im RAM und/oder extern 
auf Band bzw. Platte sortiert werden. Dabei werden die Daten- 
sätze selbst oder aber nur deren Adressen (Speicherplätze) in 
eine neue Reihenfolge gebracht. 
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Zum Ablauf 'Kopieren': Beim Back-Up duplizieren wir eine Datei 
unverändert. Ebenso läßt sich eine Datei als Kopie von einer 
anderen Datei bei gleichzeitigem Ändern (Verkürzen, Erweitern 
Modifizieren) erstellen. 

Zum Ablauf "Auswählen': Hat die Datei n Sätze, so kann man ge- 
nau einen Kunden (110), mehrere vorgegebene Sätze (Kunden 101, 
104 und 110) oder eine unbestimmte Satzanzahl (alle Kunden un- 
ter 10.000 DM Umsatz) auswählen. 

Zum Ablauf 'Klassifizieren': Hier wird z.B. eine Artikeldatei 
nach Lagerorten und Umschlagshäufigkeit tabellarisch ausgewer- 
tet. 

Zum Ablauf 'Verdichten': Gruppenwechsel kann einstufig (Absatz 
je Vertreter) oder zweistufig (Absatz je Vertreter u. Artikel) 
vorgenommen werden. 


1.3.5.4 Datei öffnen, verarbeiten und schließen 


Beim Lesen, Schreiben oder Ändern einer Datei geht man immer 
in drei Schritten vor: 


1. Dateiiöffnen: 
Verbindung zwischen Datei und Programm herstellen 
(Dateiname, Zugriffsart, Verbindungskanal usw.). 

2. Datei verarbeiten: 
Lesen (eingeben), schreiben (ausgeben) und/oder 
ändern (ein-/ausgeben bzw. überschreiben). 

3. Dateiischließen: 
Verbindung ordnungsgemäß beenden 
(Dateiende EOF (End of File) kennzeichnen, Directory 
(Inhaltsverzeichnis) auf Datei rückübertragen). 


Bei komplexen Datei-Algorithmen sind für diese drei Schritte 
jeweils gesonderte Unterprogramme vorgesehen, die Programm- 
vorlauf, Programmtreiber und Programmabschluß genannt werden. 


Zum Schritt 2 eine Anmerkung: Ist eine Datei auf Kassette ab- 
gespeichert, liest man nach dem Eröffnen häufig die Datei in 
einem Arbeitsgang komp let t in den Hauptspeicher, um 
sie dort z.B. als Array (Feld, Bereich, Tabelle) verarbeiten 
zu können. Erst unmittelbar vor dem Schließen wird die aktua- 
lisierte Datei dann - wiederum komplett - auf die Kassette zu- 
rückgeschrieben. Man bezeichnet dies als dateiweisen Datenver- 
kehr. 

Ist die Datei größer als der im RAM intern verfügbare Spei- 
cherplatz, dann ist dieses Vorgehen nicht möglich. Als Gegen- 
stück kann man mit Schritt 2 je einen Datensatz einzeln 
in den RAM übertragen und umgekehrt (datensatzweiser Datenver- 
kehr). 

Zwischen diesen beiden Extremen - Datenverkehr dateiweise oder 
datensatzweise - gibt es natürlich zahlreiche Abstufungen. 


1.3.5.5 Eine oder mehrere Dateien verarbeiten 


In der kaufmännischen Praxis wird man nur selten e ine Da- 
tei einzeln verarbeiten. Vielmehr sind zumeist mehrere 
Dateien in ein System eingebunden; man spricht dann häufig von 
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einer Dateiverkerttung. Dazu ein Beispiel: In 
einer Lagerverwaltung sind die "'Artikelstammdatei', "Bestands- 
datei', '"Bestelldatei (Einkauf)' und "Auftragsdatei (Verkauf)' 
verkettet, um von einem Programm(-paket) verwaltet zu werden; 
Datenverwaltungs - System ist die oft 
verwendete Bezeichnung hierfür. 

Wird nicht nur die Aufgabe der Lagerverwaltung gelöst, sondern 
werden sämtliche betrieblichen Aufgaben in einem Datei-System 
eingebunden, dann spricht man oft von integrierter 
Datenverarbeitung. 


1.3.5.6 Datenbank 


Bei isolierter Verarbeitung einzelner Dateien wie auch bei der 
Dateiverkettung ist nicht zu vermeiden, daß ein Datum mehrfach 
in verschiedenen Dateien gespeichert ist; man spricht von der 
Datenredundanz . So kann z.B. ein Kunde samt Kun- 
denanschrift in der Kundenstammdatei, der Offene-Posten-Datei 
und der Weihnachtsgeschenkedatei dreifach gespeichert sein. Um 
dies zu vermeiden, faßt man sämtliche Daten in einer ge- 
meinsamen Datenbasis zusammen, die Datenbank genannt 
wird. Eine solche Datenbank kann - für sich alleine genommen - 
ebenfalls als Verkettung von Dateien angesehen werden. Daß we- 
sentlich neue dabei ist, daß auf alle Elemente der Datenbank 
über ein Datenbankmanagementsystem 
(DBMS) zentral zugegriffen wird. Das DBMS besteht aus meh- 
reren Systemprogrammen zur Durchführung von Aufgaben wie dem 
Ändern von Daten der Datenbank, dem gleichzeitigen Zugriff 
mehrerer Benutzer, dem Abfragen von Daten, dem Überprüfen der 
Zugriffsberechtigung usw.. 


Datenbank-System (DBS) 


Datenbank 
(DB) 


Datenbank- 
management- 
system (DBMS) 


Benutzer 
mit Dateien 
wie: 


mit Sprachen 
wie: 


DDL, 
DML 


Artikelstamm, Gehalt ,lalt, 
Kunden, Rechnung, 


Lager, Bestellungen |jen 


Das Datenbank-System besteht aus Datenbank und DBMS 


Mit dem DBMS werden dem Benutzer unter anderem zwei sprachli- 
che Hilfsmittel zur Verfügung gestellt: 

Zum einen die Daten-Definitions-Sprache DDL (Data Definition 
Language) zum Aufbau und zur Pflege der Datenbank. Mit der DDL 


44 1 Computer allgemein 


werden z.B. die Datensätze definiert (Name, Anzahl, Datentyp, 
Länge der Satzkomponenten). Sie richtet sich mehr an den Pro- 
grammierer bzw. an den Datenbankverwalter. 

Zum anderen eine Daten-Manipulations-Sprache DML (Data Manipu- 
lation Language) zur eigentlichen Behandlung der Daten. Diese 
DML richtet sich mehr an den Sachbearbeiter, der ein Abfrage 
wie "Drucke eine Übersicht aller Kunden aus, die offene Rech- 
nungen über DM 5000.- zu begleichen haben'laufen läßt. Die DML 
wird auch als Abfragesprache bzw. Query-Language bezeichnet. 
Datenbank-Sprachen weisen wie Programmiersprachen zumeist eng- 
lische Anweisungsworte auf wie etwa FIND zur Suchanfrage, READ 
zum Lesen, WRITE zum Schreiben, DELETE zum Entfernen, INSERT 
zum Einfügen von Datensätzen. 


Das herkömmliche Datei -Syst em unterscheidet sich 
in zumindest 3 Punkten vom Datenbank-Systen: 


-Redundanzfreiheit: 
In der Datenbank werden die Daten möglichst redundanzfrei 
abgelegt, d.h. nicht mehrfach gespeichert. 
- Vielfache Verwendbarkeit: 
In der Datenbank werden die Daten vielfach verwendbar abge- 
legt, um vielen Benutzern einen möglichst einfachen Direkt- 
zugriff zu gestatten. 
-Datenunabhängigkeit: 
Die Programme bzw. Zugriffspfade arbeiten datenunakbhängig in 
dem Sinne, daß bei der Änderung der Daten keine Änderung des 
Programms notwendig wird. 


Zwei grundlegende Datenbank-Systeme sind zu unterscheiden: das 
strukturierte und das unstrukturierte Datenbank-System. Struk- 
tieriert bedeutet, daß in der Datenbank selbst Information zum 
Verweisen auf weitere Information abgespeichert ist; damit muß 
bei Anfragen stets entlang der vorgegebenen Pfade vorgegangen 
werden. Im Gegensatz dazu gibt es bei der unstrukturierten Da- 
tenbank keine vordefinierten Zugriffspfade; damit verlangsamt 
sich der Zugriff, gleichzeitig jedoch hat man unbegrenzte Mög- 
lichkeiten, Daten nach bestimmten Suchkriterien abzufragen. 


Datenbank - System (DBS) 


STRUKTURIERT: UNSTRUKTURIERT: 
Suchbegriffe, Zugriffspfade Verknüpfung der Information 
festgelegt und gespeichert. erst im Moment der Abfrage. 

- Hierarchisches DBS: Daten - Invertierte Dateien: Zugriff 
baumartig verkettet. über Index-Listen. 

- Netzwerk-Modell (CODASYL): - Relationen-Modell: Anordnung 
Netz von Zugriffspfaden. der Daten in Tabellenform. 


Strukturiertes und unstrukturiertes Datenbank-System 


Beim Netzwerk-Modell gemäß dem CODASYL-Ausschuß (COnference of 
DAta SYstem Language in den USA im Jahre 1971) sind die in der 
Datenbank abgelegten Daten in Datentypen (Item Types) sowie in 
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Datensatztypen (Record Types) zu gliedern, wobei zwischen den 
verschiedenen Datensatz-Typen sogenannte Beziehungstypen (Set 
Types) definiert werden. 

Beider relationalen Datenbank als Ge- 
genstück zum Netzwerk-Modell werden nur Datensätze im herkömnm- 
lichen Sinne unterschieden, wobei die einzelnen Datensatzkon- 
ponenten bzw. Datenfelder in Beziehung zueinander stehen wie 
die Zeilen und Spalten einer Matrix (Tabelle bzw. zweidimen- 
sionaler Array). Dazu als Beispiel unsere Kundendatei von Ab- 
schnitt 1.3.5: 


101 FREI 6500.00 Matrix mit n Zeilen und 3 Spalten. 
104 MAUCHER 295.60 Jeder Zeile entspricht ein Daten- 
109 HILDEBRANDT 4590.05 satz, jeder Spalte ein Datenfeld. 
110 AMANN 1018.75 Zugriffsbeispiel: Matrix(2,3) er- 
ee ae gibt 295.60 (2. Zeile, 3. Spalte). 


Das Relationen-Modell ist weit anschaulicher als das Netzwerk- 
Modell. Komplexe Datenstrukturen allerdings lassen sich in ei- 
ner "flachen Matrix" nur schwer darstellen. 


Ursprünglich lag die Aufgabe eines Datenbank-Systems in der 
Informationswiedergewinnung (= Information Retrieval) bzw. in 
der Auskunftserteilung. Zunehmend werden kommerzielle Daten- 
bank-Systeme angeboten, die darüberhinaus andere Aufgaben wie 
das Rechnen (sogenannte "rechnende Datenbanken') oder z.B. die 
Textverarbeitung übernehmen. 

"... eine dedizierte Datenbank - Maschine, 
die mit einem Host-Computer günstiges Datenmanagement bietet". 
Was beinhaltet eine solche Anzeige? 

Eine Datenbank-Maschine ist kein Allzweck-Computer, sondern 
ein Automat, dessen Hardware ausschließlich auf die Verwaltung 
einer Datenbank ausgerichtet bzw. dediziert ist. Darüberhinaus 
gibt es kein 'normales' Betriebssystem, sondern nur ein Soft- 
warepaket, das immer im Speicher resident ist und dabei sämt- 
liche Funktionen einer relationalen Datenbank übernimmt. Damit 
sinä wir bei der Begründung: Relationale Datenbanken benötigen 
viel Speicherplatz sowie CPU-Zeit, der Personalcomputer wird 
allzuleicht überlastet. Deshalb die Hinwendung von der "Soft- 
ware-Datenbank" zur "Hardware-Datenbank-Maschine", die an den 
Personalcomputer als Host bzw. Wirt und Gastgeber (vgl. auch 
Abschnitt 1.3.6.5) angeschlossen wird. Diese Lösung hat die 
folgenden Vorteile: Der PC als Host wird durch die Datenbank 
belastet; die Größe der Datenbank ist unabhängig von der Größe 
des Personalcomputers. 


1.3.6 System-Software (Betriebssystem) 


Das Betriebssystem mit seinen Steuer-, Dienst- und Übersetzer- 
programmen (vgl. Abschnitt 1.3.1.2) dient als Mittler zwischen 
dem Anwender(-programm) und dem Computerkern (Hardware). 


46 1 Computer allgemein 


1.3.6.1 Betriebssystem als Firmware (ROM) oder als Software 


Hinsichtlich der Speicherung des Betriebssystems gibt es zwei 
extreme Möglichkeiten, die gerade für Personalcomputer von In- 
teresse sind: 

Auf der einen Seite ist das Betriebssystem fest in ROMs unter- 
gebracht (ROM als Festspeicher enthält die Systemprogramme als 
Firmware) und steht beim Einschalten des Computers unmittelbar 
zur Verfügung. Diese Möglichkeit ist vorteilhaft, wenn man nur 
mit einer einzigen Programmiersprache arbeiten möchte. "Reine 
BASIC-Maschinen' z.B. sind oft so aufgebaut und sehr einfach 
zu bedienen. 

Auf der anderen Seite ist das Betriebssystem als Software auf 
einem Externspeicher (Diskette, Hard Disk) gespeichert und muß 
beim Einschalten des Computers vom Benutzer in den Internspei- 
cher geladen werden. Diese umständlichere Art der Bedienung 
(Handling) hat für den Benutzer jedoch den Vorteil, daß leicht 
z.B. auf eine andere Programmiersprache wie COBOL, PASCAL oder 
FORTH umgerüstet werden kann: er muß nur das zugehörige Über- 
setzerprogramm für COBOL, PASCAL bzw. FORTH von einer Diskette 
in den RAM laden. 

Personalcomputer mit mehreren Betriebssystemen (z.B. MS-DOS, 
CP/M und UCSD) haben diese stets als Software gespeichert. 


Zwischen der reinen Firmware-Lösung (Betriebssystem im ROM ) 
und der reinen Software-Lösung (Betriebssystem auf Diskette) 
als Extremen gibt es natürlich Zwischenlösungen. So kann beim 
Einschalten des Computers z.B. die Sprache BASIC aus dem ROM 
automatisch für den Benutzer mit der Möglichkeit zur Verfügung 
gestellt werden, später aus BASIC "auszusteigen',um ein anderes 
Betriebssystem bzw. Sprachmittel softwaremäßig zu laden. 


1.3.6.2 Beispiel: Betriebssystem unterstützt Computer-Start 
Die Funktion des Betriebssystems läßt gut sich am Beispiel des 


Startens eines Personalcomputers veranschaulichen. Man geht in 
drei Schritten vor. 


Internspeicher (RAM): Externspeicher (Diskette): 


Disketten-Directory 


Startprogramm aus ROM 


BASIC-Interpreter 
Sonstige Systemprogramme 
des Betriebssystems 


Anwenderprogramme A,B,..,S 


Disketten-Directory 


Sonstiges 
Betriebssystem 


frei für Benutzer 


frei für Benutzer 


Schritt (1): "Computer einschalten' und Betriebssystem 
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Schritt (1) : Gerät anschalten. Aus einem ROM als Nur- 
Lese-Speicher wird automatisch ein Startprogramm zur Ureingabe 
in den Hauptspeicher gebracht. Dieses lädt die Datei-Directory 
(Verzeichnis der auf Diskette gespeicherten Dateien sowie Pro- 
gramme) ebenfalls in den RAM wie auch das Betriebssystem mit 
seinen Programmen. Das Betriebssystem zeigt nun dem Benutzer am 
Bildschirm durch ein Zeichen an, daß der Computer betriebsbe- 
reit ist. Der Benutzer befindet sich auf der Betriebssystem- 
Ebene (System Mode). 


Schritt (2) : Der Benutzer hat sich entschieden, BASIC 
zu laden und tippt den entsprechenden Betriebssystem-Befehl 
ein. Das Betriebssystem prüft in der Disketten-Directory nach, 
ob auf der Diskette das BASIC-Übersetzerprogramm auch vorhan- 
den ist und lädt es zusätzlich in den RAM. Dies entspricht der 
oben angesprochenen Software-Lösung; bei der Firmware-Lösung 
würde Schritt (2) automatisch als Teil einer starren Befehls- 
folge nach dem Einschalten ablaufen. 


Internspeicher (RAM): Internspeicher (RAM): 


Startprogramm aus ROM 
Disketten-Directory 


Sonstiges 
Betriebssystem 


BASIC-Interpreter 


Startprogramm aus ROM 


Disketten-Directory 


Sonstige 
Betriebssystem 


BASIC-Interpreter 


Anwenderprogramm A 


frei für Benutzer 


frei für Benutzer 


(2) "BASIC laden' (links) und (3) 'Prog. A laden' (rechts) 


Schritt (3) : Der Benutzer kann sich jetzt ein auf der 
Diskette enthaltenes Anwenderprogramm in den RAM laden wie im 
Beispiel das Programm A. Das Übersetzerprogramm (ein Interpre- 
ter, wie im folgenden Abschnitt zu zeigen) ruft zum Laden das 
Betriebssystem auf, welches nach dem Ladevorgang wiederum die 
Kontrolle an das Übersetzerprogramm zurückgibt. 

Anschließend kann der Benutzer in einem Schritt (4) das Anwen- 
derprogramm A ausführen lassen. 


1.3.6.3 Übersetzerprogramme 


Ein Computer versteht soviele Programmiersprachen (=Fremdspra- 
chen) wie Übersetzerprogramme vorhanden sind. Die Übersetzer- 
programme wandeln Programmiersprache in die Maschinensprache 
(=Muttersprache des Computers) um. 

Es ibt maschinenorientiert e Programmier- 
sprachen, bei denen als "1-zu-1-Sprachen" dann meist 1 Fremd- 
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sprachenanweisung zu 1 Maschinenbefehl führt; sie heißen auch 
Assembler(-sprachen). 

Das Gegenstück sind die problemorientierten 
Programmiersprachen als "1-zu-mehr-Sprachen". Bei ihnen wird 
1 Fremdsprachenanweisung in mehrere Maschinensprachenbefehle 
übersetzt wird. Die zugehörigen Übersetzerprogramme sind ent- 
weder Compiler oder aber Interpreter. 


Programmiersprachen als Fremdsprachen für Computer 


maschinenorientierte problemorientierte 
1-zu-1-Sprachen 1-zu-mehr-Sprachen 
Quellenprogramm Quellenprogramm Quellenprogramm 
ASSEMBLER COMPILER INTERPRETER 
übersetzt übersetzt übersetzt 
programmweise programmweise anweisungsweise 
Maschinenprogramm Maschinenprogramm Maschinenbefehl 
als Objekt als Objekt als Objekt 


Maschinen- und problemorientierte Programmiersprachen 


Jeder Computer hat seine eigene maschinenorien- 
t ie rt e Programmiersprache, die - obwohl von Computer zu 
Computer z.T. verschieden aufgebaut - stets Assembler 
heißt. Das in Assembler geschriebene Programm (auch Quellen- 
programm, Quellcode oder Source-Listing genannt) kann der Com- 
puter noch nicht verstehen. Ein Übersetzerprogramm, das (ver- 
wirrend? ) ebenfalls Assembler genannt wird, übersetzt nun das 
Quellenprogramm in die für die CPU verständliche Maschinen- 
sprache als Objektprogramm. Das eigentliche Maschinenprogramm 
steht als Abfolge hexadezimaler Bytes computerverständlich im 
Internspeicher; da es für uns nur schwer lesbar ist, wird es 
vom Assembler zur Kontrolle als Assembler-Listing ausgegeben. 


Interpreter und Compiler als Übersetzer- 
programme arbeiten analog zum menschlichen Sprachübersetzer 
wie folgt: 

Ein Interpreter (to interprete = auslegen) arbeitet wie ein 
Simultan-Dolmetscher: Der Dolmetscher übersetzt Satz für Satz, 
um das Ergebnis sofort mitzuteilen. Ein Interpreter übersetzt 
Anweisung für Anweisung, um jede Anweisung sofort auszuführen. 
Ein Compiler (to compile = zusammensetzen) hingegen arbeitet 
wie ein 'normaler' Fremdsprachenübersetzer: Dieser übersetzt 
das gesamte Fremdsprachenschriftstück zu einem bestimmten Ter- 
min. Entsprechend übersetzt ein Compiler das gesamte Anwender- 
programm komplett in einem Arbeitsgang: Das in einer sogenann- 
ten Hochsprache verfaßte Programm wird in einem gesonderten 
Compilierungslauf in ein lauffähiges Maschinenprogramm über- 
setzt. 

Die Vorteile eines compilierenden Systems (z.B. Objektprogramm 
in 0/1-Form ablauffähig auf Externspeicher abgelegt, Programm- 
ausführung sehr schnell) und seine Nachteile (z.B.eine Feh- 
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lerkorrektur erfordert die komplette Neuübersetzung, Speicher- 
bedarf für Quelle, Übersetzer und Objekt sehr groß) sind stets 
abzuwägen. 

Günstig ist: Programmentwicklung sowie Programmtest mit einem 
Interpreter und dann abschließende Compilierung des Programms. 


Gerade bei Personalcomputern lassen sich Interpreter und Com- 
piler kaum mehr streng trennen. So gibt es compilierende In- 
terpreter und interpretierende Compiler. 

Zum 'compilierenden Interpreter' ein Beispiel: 

Die große Softwarefirma Microsoft hat solche Zwischenlösungen 
als BASIC-Interpreter z.B. für Apple, CBM, TRS-80 entwickelt. 
Dabei werden die BASIC-Zeilen beim Eintippen -für den Benutzer 
unbemerkt- in einen sogenannten Zwischencode übersetzt (PRINT 
wird z.B. als hexadezimal BA bzw. dezimal 186 zwischengespei- 
chert, nicht aber in fünf ASCII-Zeichen bzw. Bytes als PRINT). 


Zum 'interpretierenden Compiler' ebenfalls ein Beispiel: 

Der unter dem Betriebssystem UCSD laufende PASCAL-Compiler 
übersetzt den Quellcode in e i n e m getrennten Übersetzungs- 
lauf in einen Zwischencode (P-Code genannt für Pseudo-Code), 
der dann zur Ausführungszeit durch einen Interpreter weiter 
übersetzt wird. 


Reiner interpretierender Reiner 

Interpreter: Compiler: Compiler: 

Pr ET re 

Quellcode Quellcode Quellcode 
'COMPILER' COMPILER 
ee ll 
Zwischencode Quellcode 

Pre or ger aan ana nes Bus heersuenekg, mittels RUN 
Quellcode Zwischencode Quellcode 
INTERPRETER INTERPRETER 


v v 


Interpreter und Compiler mit Zwischenlösungen 
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1.3.6.4 Programmiersprachen 


Es gibt mehrere Hundert Programmiersprachen. Die wichtigsten 
Sprachen werden in Stichworten beschrieben: 


ADA: Diese nach Lady Ada Augusta benannte Sprache wurde 1980 
vom US - Verteidigungsministerium herausgebracht (wie früher 
COBOL) und wird als Universalsprache eine vielleicht ebenso 
große Verbreitung finden wie COBOL. ADA-Subsets laufen bereits 
auf Personalcomputern. 


ALGOL 60: Diese 'ALGOrithmic Language' gibt es seit 1960. Sie 
wird vornehmlich im Hochschulbereich eingesetzt. 


APL: "A Programming Language' gilt als eines der mächtigsten 
und knappsten Sprachmittel. Berühmt sind die APL-Einzeiler mit 
ihren Kurz-Operatoren (griechische Symbolik). Auf Personalcom- 
putern mit 16-Bit-Prozessoren läuft APL stets als Interpreter. 


ASSEMBLER: Die maschinenorientierten Assembler-Sprachen (vgl. 
Abschnitt 1.3.6.3) gehören eigentlich nicht in diese Übersicht 
von Hochsprachen bzw. 1-zu-Mehr-Sprachen. Makros als Gruppen 
von Einzelbefehlen jedoch machen das maschinennahe Arbeiten in 
Assembler etwas weniger mühsam. 


BASIC: Für diese auf Personalcomputern am weitesten verbrei- 
tete Sprache (Beginners All Purpose Symbolic Instruction Code) 
gibt es fast so viele Dialekte wie Computertypen. Am weitesten 
ist das "Microsoft-BASIC" verbreitet. BASIC gibt es sowohl als 
compilierende Sprache (z.B. C-BASIC) wie auch als Interpreter. 
BASIC gehört zu den unstrukturierten Sprachen. 


C: In der Sprache C ist das Betriebssystem UNIX geschrieben. 
Es kann PASCAL-ähnlich strukturiert programmiert werden, dabei 
werden aber weniger Datentypen und mehr Operatoren (etwa wie 
in APL) bereitgestellt. Gut in C: Zeiger (Pointer) zur Adreß- 
verkettung. Die C-Compiler sind leider nicht standardisiert. 


COBOL: Die "Common Business Oriented Language' gibt es bereits 
seit 1959. COBOL ist d i e kommerzielle Programmiersprache, 
genormt, äußerst umfangreich. Ungefähr 50% aller US-Software 
ist in COBOL geschrieben. Zitat: "COBOL ist nicht gut, aber es 
gibt viele Programmierer, die diese Sprache gut beherrschen". 


ELAN: Diese Ende der 70er Jahre in Berlin entwickelte Sprache 
unterstützt das strukturierte Programmieren und wird im Schul- 
bereich in Konkurrenz zu PASCAL eingesetzt. 


FORTH: Dies ist eine interpretierende Sprache, die jedoch zu- 
nächst den FORTH-Text in einen Zwischencode übersetzt (siehe 
Abschnitt 1.3.6.3). FORTH gibt es auch für kleinere Computer. 


FORTRAN: Der 'FORmula TRANslator' entstand 1950 und gilt als 
die wichtigste Hochsprache zur Lösung math/naturwissenschaft- 
licher Probleme. Wie COBOL ist FORTRAN eine typische Großcom- 
putersprache. BASIC ist ein FORTRAN-Abkömmling. 
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e LISP: Der LISP-Interpreter wird insbesonders von Wissenschaft- 
lern verwendet, die sich mit der 'Künstlichen Intelligenz' be- 
schäftigen (Nachahmung des menschl. Gehirns durch die CPU, Ab- 
schnitt 1.1.3). Eine LISP-Variable hat als 'Atom' neben Namen 
und Wert vom Programmierer frei zu vereinbarende Merkmale, die 
als Liste geführt werden (deshalb: LISP für LISt Processor). 


© LOGO: "Anders als die anderen Sprachen". Diese Aussage trifft 
für APL (im Hinblick auf die komprimierte Problembeschreibung 
über mächtige Operatoren) sowie für LOGO (im Hinblick auf die 
kindgerechte Schildkrötengrafik) zu. Bei den "Turtle Graphics" 
kann die am Bildschirm kriechende Schildkröte zum Zeichnen von 
Bildern gesteuert werden. LOGO-Interpreter kommen mit wenig 
Platz aus und sind zunehmend für Personalcomputer erhältlich. 


e MODULA 2: Diese Sprache wurde von Niklaus Wirth als Nachfol- 
gesprache zu PASCAL entwickelt. Besondere Merkmale: Typische 
'Hochsprachen-Anwendungen' sind ebenso möglich wie maschinen- 
nahe Programmierung; ausgereifte Modularisierung (Module als 
Bausteine -anders als in PASCAL- separat speicherbar in Modul- 
Bibliothek); Compiler kann Maschinencode erzeugen zwecks Ein- 
brennen in PROMs (damit Nutzung als Entwicklungssprache für 
Mikrocomputerprodukte). Es wird erwartet, daß sich MODULA 2 
durch ihre Kompaktheit als Alternative zu ADA behaupten wird. 


e PASCAL: "PASCAL erzieht zum klaren Programmieren" - aus diesem 
Grunde halten gerade die Lehrer so viel von dieser von Niklaus 
Wirth 1972 erstmalig beschriebenen Sprache. PASCAL ist nach 
dem Mathematiker und Philosophen Blaise Pascal (1623-1662) be- 
nannt und gilt als d i e Sprache für das strukturierte Pro- 
grammieren. Leider ist nur das ursprüngliche Wirth'sche PASCAL 
standardisiert, nicht aber die später notwendig gewordenen Er- 
weiterungen (wie Grafik-, Text- und Dateiverarbeitung; Wirth 
beschrieb so z.B. nur die sequentielle Banddatei). So sind die 
sehr zahlreichen auch für Personalcomputer verfügbaren PASCAL- 
Compiler oft nicht kompatibel: etwa ALCOR-PASCAL, JRT-PASCAL, 
PASCAL/MZ+, PASCAL/Z, ProPASCAL, TCL-PASCAL, SCHTAC-PASCAL 
und UCSD-PASCAL, wobei sich letzteres fast zum Ersatz-Standard 
entwickelt hat. 


® PILOT: Diese 'Programmed Inquiry Learning or Teaching' ist für 
Personalcomputer als BASIC-Ersatz für Lehr-/Lernzwecke ent- 
wickelt worden. PILOT arbeitet ausschließlich interpretierend. 
PILOT wird eingesetzt im Rahmen des Computer-unterstützten Un- 
terrichts (CUU) bzw. der Computer Aided Instruction (CAI). 


e PL/1: Die "Programming Language 1' wurde von der IBM für Groß- 
computer entwickelt und umfaßt die Sprachelemente von COBOL und 
FORTRAN zusammen - aber modern strukturiert. Wertmäßig dürfte 
die in PL/1 geschriebene Software nach der COBOL-Software den 
zweiten Platz einnehmen. Für PCs gibt es PL/1 (noch?) nicht. 


e Diese Auswahl kann keinesfalls vollständig sein. Die Liste von 
Programmiersprachen ließe sich fortsetzen: BCPL, COMAL, CORAL, 
DIBOL, EUCLID, MUMPS, PEARL, PL/M, PROLOG, RPG II, SIMULA 67, 
SNOBOL, STOIC, ... 

Abschließend: Vermutlich werden in 10 Jahren Programmierspra- 
chen überwiegen, die heute noch nicht einmal entworfen sind. 
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1.3.6.5 Herstellerabhängige und unabhängige Betriebssysteme 


Die Abkürzung DOS steht für 'Disk Operating System'. Es ist 
ein Systemprogramm, das alle mit der Diskette verbundenen Ein- 
und Ausgaben kontrolliert. Die Bezeichnung DOS findet sich als 
Namensbestandteil zahlreicher Betriebssysteme. 

Das DOS für den Apple wie auch das TRS-DOS der TRS-80-Model- 
le von Tandy sind Beispiele für Betriebssysteme, welche vom 
Personalcomputer-Hersteller speziell auf das eigene Gerät hin 
zugeschnitten wurden. Herstellerabhängige 
Systeme findet man vornehmlich bei kleineren Personalcomputern 
mit 8-Bit-Mikroprozessoren. 


Personalcomputer der 16-Bit-Klasse und 32-Bit-Klasse arbeiten 
überwiegend mit herstellerunabkbhängigen 
Betriebssystemen, die von Software-Produzenten entwickelt wur- 
den. So mit CP/M und MS-DOS der beiden Software-Giganten Digi- 
tal Research und Microsoft, mit UCSD der Universität von San 
Diego in Californien, mit UNIX, XENIX, OASIS, ..... 

Wie kam es dazu? Früher baute jeder Hersteller sein eigenes 
Betriebssystem, um es mit dem Computer als Einheit anzubieten. 
Um das Betriebssystem herum wurde ein großer Schleier gelegt - 
ein Übernehmen oder Anpassen an einen anderen Computer war so- 
mit unmöglich. Dies änderte sich erst, als die Software-Firma 
Digital Research ihr "Control Program for Microcomputers', ge- 
nannt CP/M, als herstellerunabhängiges Software-Produkt anbot: 
mit einer exakten Beschreibung der Verbindung (Schnittstellen) 
des Betriebssystems zur Computerhardware. Nun begannen immer 
mehr Hersteller, CP/M-fähige Computer zu produzieren. Mit der 
raschen Verbreitung von CP/M nahmen solche Programme zu, die 
CP/M-verträglich waren. Ursprünglich wurde CP/M für den Mikro- 
prozesor 8080 und später für den 2-80-Prozessor eingesetzt, 
deshalb die Bezeichnung CP/M-80. 

Die Variante CP/M-86 wurde für den 8086-Prozessor entwickelt. 
Über das BIOS (Basic Input-Output System) als dem adaptierba- 
ren Teil des CP/M läßt sich dieses prozessorabhängige System 
an Computer anpassen, die eine CPU haben, welche z.B. den Code 
des Intel 8088 verarbeiten. 


Betriebssystem 


herstellerabhängig: herstellerunabhängig: 


Apple-DOS für Apple 
TRS-DOS für Tandy 


prozessorabhängig: prozessorunabhängig: 
CP/M-80 für 8080, 280 UCSD-P - System 
CP/M-86 für 8086 

Implementierung über Implementierung über 
BIOS P-Code-Interpreter 


Herstellerabhängige und -unabhängige Betriebssysteme 


1.3 Software = Daten + Programme 53 


1.3.6.6 Einige Betriebssysteme kurzgefaßt 


Auf die Betriebssysteme CP/M, MS-DOS, UNIX und USCD wollen wir 
kurz eingehen. 


Zunächst zu CP/M von Digital-Research: 

CP/M war das erste Betriebssystem für PCs, wurde seit 1974 an- 
geboten und entwickelte sich schon bald zum Quasi-Standard für 
8-Bit-Computer mit den CPUs 8080, 8085 und 2-80. Im Hinblick 
a die 80er-CPUs bezeichnet man dieses Betriebssystem oft als 
CP/M-80. 

Für 16-Bit-Computer mit der CPU 8086 von Intel entwickelte Di- 
gital Research das Betriebssystem CP/M-86. Da CP/M-80 zum Teil 
in Assembler geschrieben ist, stellt CP/M-86 eine Neuentwick- 
lung dar (die CPU 8086 arbeitet in einem anderen Code als die 
CPUs der 80er Serie). Deshalb auch die Probleme bei der Kompa- 
tibilität zwischen CP/M-80 und CP/M-86. 

Für den Multi-User-Betrieb bietet Digital Research die Systeme 
MP/M-80 sowie MP/M-86 (Multiprogramming Monitor for Microcom- 
puter) an. 

Das Betriebssystem CONCURRENT CP/M wurde für den Single-User- 
Betrieb unter Multi-Tasking entworfen: mehrere Aufgaben können 
als Tasks gleichzeitig auf e i ne m PC bearbeitet werden. 
MP/M sowie CONCURRENT CP/M erweitern den Leistungsumfang des 
CP/M um die jeweiligen Funktionen des Multi-üsing bzw. Multi- 
Tasking. 

Das Betriebssystem PERSONAL CP/M läßt sich in einem ROM unter- 
bringen und eignet sich deswegen auch für PCs ohne Disketten- 
laufwerk. PERSONAL CP/M wurde eigens für kleinere PCs entwik- 
kelt und unterstützt sowohl 8-Bit-CPUs als auch 16-Bit-CPUs. 


Zu MS-DOS von Microsoft: 

Als Konkurrenprodukt zu CP/M-86 von Digital Research brachte 
die Softwarefirma Microsoft das Betriebssystem MS-DOS heraus. 
IBM wählte für seinen PC als Betriebssystem MS-DOS, und zwar 
in einer Version, die den Namen PC-DOS erhielt und hardware- 
abhängiger ist als MS-DOS selbst. Durch die Wahl dieses Be- 
triebssystems wurde MS-DOS sehr populär. 

Für den "PC jr." von IBM wurde das Betriebssystem MS-DOS 2.1 
entwickelt. In seiner Funktionalität steht es auf einer Stufe 
mit MS-DOS 2.0 oder MS-DOS 2.11, es kann aber ohne Disketten- 
laufwerk eingesetzt werden (viele Teile von MS-DOS 2.1 sind im 
ROM untergebracht und nicht im RAM). 

Die Version MS-DOS 3.0 ist für Multi-Using und für Multi-Tas- 
king konzipiert. 


Zum Betriebssystem UNIX: . 

Im Gegensatz zu CP/M sowie MS-DOS ist das Betriebssystem UNIX 
nicht in Assembler, sondern fast vollständig in der Sprache C 
geschrieben. Damit ist UNIX auf alle PCs übertragbar, die über 
einen C-Compiler verfügen. UNIX wurde von Wissenschaftlern für 
Wissenschaftler geschrieben - entsprechend profihaft wie kom- 
pliziert ist seine Benutzung. Deshalb wurden viele von UNIX 
abgeleitete und leichter bedienbare Betriebssysteme entwickelt 
wie ZEUS von Zilog, GENIUS von National, REGULUS von Motorola 
und XENIX von Microsoft. 

Das bekannteste UNIX-Derivat ist XENIX. Es unterstützt Multi- 
Using wie auch Multi-Tasking. 
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Zum Betriebssystem UCSD: 

UCSD ist die Abkürzung für University of California San Diego. 

Früher stand UCSD für das Programmiersprachsystem UCSD-Pascal, 

während es heute als umfassendes Betriebssystem mehrere Über- 

setzer anbietet wie BASIC-Compiler, FORTRAN 77-Compiler, LISP- 

Interpreter, MODULA-2-Compiler und natürlich PASCAL-Compiler. 

UCSD (auch als UCSD-P oder UOS für Universal Operating System 

bezeichnet) unterscheidet sich von CP/M und MS-DOS durch drei 

Merkmale: 

- Konsequente Menüsteuerung anstelle einer Kommandosteuerung 
und damit enge Benutzerführung. 

- Bereitstellung einer komfortablen und abgeschlossenen Pro- 
grammentwicklungsumgebung (mit Editor, Filer, Compiler, ...) 
anstelle einer reinen Laufzeitumgebung. 

- Hervorragende Portabilität durch die Mitnahme der Computer- 
architektur. 

Das UCSD-Betriebssystem ist prozessorunabhängig und damit für 

Personalcomputer jeglichen Prozessortyps einsetzbar. 

Wie ist dies möglich? UCSD benutzt den jeweiligen Personalcom- 

puter als Host-Computer im Sinne eines Wirtes bzw. Gastgebers. 

Es arbeitet also nicht unmittelbar mit dem Personalcomputer, 

sondern mit einem Pseudo-Computer. Gibt der Benutzer z.B. ein 

Quellenproggramm in PASCAL ein, so übersetzt der Compiler die- 

ses Textfile in einen Zwischencode (vgl. Abschnitt 1.3.6.3), 

der P-Code genannt wird, um das resultierende P-Code-File dann 
ebenfalls abzuspeichern. Soll dieses Programm nun ausgeführt 
werden, so wird es von einem P-Code-Interpreter vom P-Code in 
die Maschinensprache des jeweiligen Personalcomputers als Host 
übersetzt. Der Compiler ist fester Bestandteil des Betriebs- 
systems und selbst in PASCAL geschrieben. Der P-Code-Interpre- 
ter dagegen ist in der Maschinensprache des Hosts geschrieben. 
Soll UCSD auf einem Personalcomputer implementiert werden, so 
ist u.a. nur ein P-Code-Interpreter für die entsprechende CPU 
zu schreiben. Da UCSD auf einem P-Computer als abstraktem Com- 
puter läuft, der allein softwaremäßig auf dem Personalcomputer 
als Host nachgebildet wird, ist eine rasche Verfügbarkeit die- 
ses Betriebssystems auf neuen Personalcomputern zu erwarten. 


Benutzer- Pseudo-Computer Personalcomputer 
eingabe: als P-Computer: als Host-Computer: 
Quellcode Objektcode 1 Objektcode 2 
als Textcode als P-Code als Maschinencode 
Compiler P-Code-Interpreter 
übersetzt übersetzt 
(P=Pseudo) 


UCSD behandelt den Personalcomputer als Host bzw. Gast 


Der Trend geht eindeutig dahin, mehr er e Betriebssysteme 
für einen Computer bereitzustellen. So sind für den IBM Perso- 
nalcomputer die drei Betriebssysteme MS-DOS von Microsoft, 
CP/M-86 und UCSD-P nutzbar. 
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1.3.7 Anwender-Software entwickeln 


Die Programmentwicklung wird als Teil der DV-Systementwicklung 
vorgenommen und vollzieht sich wie diese in Teilschritten. Mag 
die Terminologie hierzu auch unterschiedlich sein, die Pro- 
grammentwicklung wird stets in der Schrittfolge "PROBLEMSTEL- 
LUNG - PROGRAMMENTWURF - PROGRAMMIERUNG - ANWENDUNG" durch- 
geführt werden. Am Beispiel der Rechnungsstellung bzw. Faktu- 
rierung wollen wir diese Teilschritte im Abriß kurz erläutern. 


PRr2o gr BL aamengennstawasserklauengg 


PROBLEM- PROGRAMMENTWURF: PROGRAMMIERUNG: DOKUMEN- 
STELLUNG TATION 
Problemanalyse: 


- Teilprobleme Codierung 
(Module) 
- A-E-V-Analyse 


Algorithmus (Ablauf): Eingabe ANWENDUNG 


Darstellungsformen: 
Schrittplan 
Blockdiagramm Übersetzung 
Datenflußplan 
Programmablaufplan 
Struktogramm 
Entwurfsprache Programmtext 


Techniken, Werkzeuge (Software-Tools) 


Programmentwicklung in Teilschritten 


1.3.7.1. Problemanalyse 


Ein Problem analysieren heißt, dieses in seine Bestandteile zu 
zerlegen. Bei der Problemanalyse geht man nach der Idee 'Vom 
Einfachen zum Schwierigen' von den Ausgabedaten aus, da diese 
ja mit der Problemstellung als erwartetem Resultat vorgegeben 
sind. Erst danach wendet man sich der Analyse der Eingabe und 
der Verarbeitung zu. 

Ausgabe-Analyse: Daten (z.B. Rechnungszeile mit Artikelnummer, 
Bezeichnung, Menge, Einheit, Einzel- und Gesamtpreis), Form 
(z.B. Drucker für Rechnung, Diskette für Offene-Posten-Datei), 
Listbilder zum Ausgabeformat, Zeitpunkt der Ausgabe. 
Eingabe-Analyse: Daten (Kundennummer, Artikelnummer und Anzahl 
sowie Datum), Form (z.B. Tastatur, Diskette für Kundendatei u. 
Artikeldatei). 

Verarbeitungs-Analyse: Die Verarbeitungsschritte ergeben sich 
aus den Ausgabe- und Eingabeanforderungen (z.B. Menge*Einzel- 
preis ergibt Gesamtpreis). 

In einer Variablenliste werden sämtliche Namen mit Datentypen 
zusammengefaßt. In einem Datei-Verzeichnis werden die Dateien 
mit den entsprechenden Datensatz-Beschreibungen festgehalten. 
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1.3.7.2 Formen zur Darstellung des Lösungsablaufes 


Für den dann zu entwickelnden Algorithmus bzw. Lösungsablauf 
stehen die unterschiedlichen Darstellungsformen zur Verfügung. 
Ein Schritt p lan kann jetzt so aussehen: 
1. Rechnungs- und Kundennummer mit Datum eintippen. 
2. Rechnungskopf drucken 

3. Rechnungszeile(n) aufbereiten und drucken 

4. Rechnungsabschluß drucken 

5. Kundendatei aktualisieren 

6. Eintrag Offene-Posten-Datei 


Als Blockdiagramm kann dieser Schrittplan schon 
feiner gegliedert bzw. strukturiert sein wie z.B. Schritt 1: 


Schritt 1 


Tastatur- Ausgabe 
eingabe ü Kundensatz 


Zu 'Kunde prüfen': Ist ein Kunde mit der eingetippten Nummer 
nicht in der Kundendatei enthalten, wird eine Meldung ausgege- 
ben. Zu "Ausgabe Kundensatz': Zur Kontrolle wird der gesamte 
Inhalt des Kundensatzes am Bildschirm gezeigt. 


Im Daten f 1luß p lan werden die Datenträger bzw. Ge- 
räte, die Arten der Bearbeitung und der Datenfluß zwischen den 
Datenträgern grafisch festgehalten. 


Akte 


Bearbeitung Hilfs- Eingabe Trennen Sortieren Mischen Mischen und 
allgemein funktion von Hand Trennen 
Datenträger: I 
Datenträger Schrift- Loch- Magnet- Magnet- Kassette Diskette 
allgemein stück karte band platte 

Datenfluß: 

——— 0 —_———>> See — —- ) -_— 
Flußlinie Datentrans- Datenübertra- Anschluß- Bemerkung 
port (off-line) gung (on-line) punkt 


Sinnbilder für Datenflußpläne nach DIN 66001 
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Für die Rechnungsschreibung könnte der Datenflußplan in seiner 
knappsten Form etwa so aussehen: 


Tastatur- ci Rechnungs- 
eingabe ausdruck 


Rechnungs- 


> rn er 


Kundendatei Artikeldatei Offene-Posten-Datei 
Einfacher Datenflußplan zur Rechnungsschreibung 


Der Datenflußplan bezieht sich mehr auf die Hardware, während 
der Programmablaufplan (PAP) mit der zeich- 
nerischen Darstellung des geplanten Programmablaufes eindeutig 
softwarebezogen ist. Die Sinnbilder für den PAP sind ebenfalls 
nach DIN 66001 genormt. Im Datenflußplan wie im PAP gleichbe- 
deutend sind die Sinnbilder für Anschlußpunkt sowie für Be- 
merkung. Eine im PAP etwas andere Bedeutung hat das Rechteck 
(Wertzuweisung) und das Parallelogramm (Eingabe „ Ausgabe). 
Neu im PAP sind die 

Sinnbilder für die 

Verzweigung und für 

das Aufrufen eines 

Unterprogramms. Verzweigung Unterprogramm 


Die zum Teilschritt "Kunde prüfen' (obiger Schrittplan) zuge- 
hörige Anweisungsfolge kann als PAP z.B. so aussehen: 


Kundennummer eintippen 


Kunde auf Datei vorhanden? Fehler- 
meldung 
ausgeben 

Wenn Kundennummer ungültig, 

dann Zurückverzweigen 


Neben dem PAP wird immer häufiger ein weiteres Hilfsmittel zur 
zeichnerischen Darstellung von Programmabläufen verwendet: das 
Struktogramm ,„, auch Strukturdiagramm oder (nach dem 
Erfinder) Nassi-Shneiderman-Diagramm genannt. Struktogramme 
haben wir bereits in Abschnitt 1.3.3 verwendet, um damit die 
grundlegenden Programmstrukturen darzustellen. 
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Im folgenden Struktogramm wird der Ablauf "Kunde prüfen' dar- 
gestellt: 


Kundennummer eintippen 


Di auf Datei? | 


Fehlermeldung ausgeben 


Wiederhole bis gültige Kundennummer eingetippt wurde 


Beim Struktogramm sind die Programmstrukturen deutlich erkenn- 


bar: eine nicht-abweisende Schleife, die eine "Einseitige Aus- 
wahl' einschachtelt. 


Neben diesen grafischen Darstellungsmöglichkeiten des Lösungs- 
ablaufes verwendet man oft eine Entwurfsprache 
als Pseudocode, um den Programmentwurf umgangssprachlich dar- 
zustellen (Abschnitt 1.3.3.1). Der oben als PAP sowie Strukto- 
gramm dargestellte Ablauf läßt sich in der Entwurfsprache wie 
folgt beschreiben: 


Wiederhole 
Tippe die Kundennumner ein 
wenn die Kundennummer in der Kundendatei gefunden wurde 
dann tue nichts 
sonst zeige eine Fehlermeldung am Bildschirm 
Ende-wenn 


bis eine Kundennummer als gültig erkannt wurde 


Der algorithmische Entwurf stellt häufig die unmittelbare Vor- 
stufe zur Programmierung dar. 


1.3.7.3 Programmierung 


Programmier - System am Bildschirm aufrufen 


Codierung und Eingabe 
= Editieren über einen Editor) 


Übersetzen 
(= Compilieren über einen Compiler) 


wiederhole, bis Programm syntax-fehlerfrei 


Testen (Ausführung, Pogrammlauf) 


wiederhole, bis Programm logisch fehlerfrei 


Programmieren im engeren Sinne als Struktogramm 
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Programmieren heißt, den zeichnerisch und/oder verbal darge- 
stellten Algorithmus in eine Programmiersprache umzusetzen und 
auszutesten. Dabei werden die Schritte "'Codierung', 'Eingabe', 
"Übersetzung' und 'Testen' zumeist wiederholt durchlaufen. Der 
Übersetzungslauf als gesonderter Schritt ist bei Sprachen mit 
Compiler, nicht aber bei solchen mit Interpreter erforderlich 
(vgl. Abschnitt 1.3.6.3). Das Austesten erfolgt als Computer- 
test sowie Schreibtischtest. 


Abschließend faßt man mit der Dokumentation alle 
Programmunterlagen als Gebrauchsanleitung zusammen: sei es als 
Anleitung für den Operator, damit dieser den Computer bei den 
Programmläufen auch richtig bedienen kann (Operator-Handbuch), 
oder als Anleitung für den Benutzer für die spätere Programm- 
pflege und Programmkorrektur (Benutzer-Handbuch). Zusätzlich 
zum Benutzer-Handbuch sollte eine Kurzanleitung vorliegen, die 
nur die wichtigsten für den Umgang mit dem Programm notwendi- 
gen Schritte und Anweisungen für den Interessenten bereithält. 


zentraler Teil der Programmentwicklung ist der Programmentwurf 
und nicht -wie es manchem DV-Einsteiger scheinen mag- die Pro- 
grammierung bzw. Codierung in einer Programmiersprache. Es ist 
denkbar, daß die Codierung eines Tages automatisiert durchge- 
führt werden kann. 

Angesichts der steigenden Software - Kosten (Abschnitt 1.1.2) 
geht man immer mehr dazu über, die Programmentwicklung und da- 
bei besonders den Programmentwurf industriell und ingenieur- 
mäßig vorzunehmen: Software - Engineering 
lautet die darauf verweisende Begriffsbildung. Auf einige der 
im Rahmen des Software-Engineering eingesetzten Programnmier- 
techniken sowie Entwurfsprinzipien gehen wir nachfolgend ein. 


1.3.7.4 Programmiertechniken und Entwurfprinzipien 


Die Modulariswierung von Software berücksich- 
tigt, daß ein in kleine Teile bzw. Moduln gegliedertes Problem 
bzw. Programm einfacher zu bearbeiten ist. 'Klein' heißt, daß 
ein Modul maximal 200 Anweisungen umfassen darf. Ein Modul ist 
ein Programmteil mit einem Eingang und einem Ausgang und kann 
selbständig übersetzt und ausgeführt werden. Moduln verkehren 
nur über Schnittstellen miteinander, über die Werte (Parameter 
genannt) vom rufenden an das aufgerufene Modul übergeben wer- 
den; ein Modul darf als Black Box nichts vom Innenleben eines 
anderen Moduls wissen. 


Die Normier ung von Programmabläufen als Vereinheit- 
lichung durch eine standardisierte Ablaufsteuerung wird bei 
der Entwicklung komplexer kommerzieller Software-Pakete vorge- 
nommen, an der zumeist mehrere Mitarbeiter beteiligt sind. Je- 
des Softwarehaus hat seine eigenen Normen. 


Die Jackson - Methode geht bei der Pogramment- 
wicklung von der exakten Analyse der Datenstrukturen aus, um 
dann die entsprechenden Pogramm- bzw. Ablaufstrukturen zu ent- 
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werfen. Warum? In der kommerziellen DV sind die Daten zumeist 
bis in die Details vorgegeben, während die Abläufe den Daten 
gemäß formuliert werden müssen. Anders ausgedrückt: die Daten- 
struktur prägt die Programmstruktur. 


Dem Top - Down - Entwurf als Von-oben-nach- 
unten-Entwurf entspricht die Technik der schrittweisen Verfei- 
nerung: vom Gesamtproblem ausgehend bildet man Teilprobleme, 
um diese dann schrittweise weiter zu unterteilen und zu ver- 
feinern bis hin zum lauffähigen Programm. Der Top-Down-Entwurf 
führt immer zu einem hierarchisch gegliederten Programmaufbau. 


Der Bottom - Up - Entwurf als Gegenstück zum 
Top-Down-Entwurf geht als Von-unten-nach-oben-Entwurf von den 
oft verwendeten Teilproblemen der untersten Ebene aus, um suk- 
zessive solche Teilprobleme zu integrieren. Beide Entwurfs- 
prinzipien werden in der Praxis zumeist kombiniert angewendet. 


Die Unterprogrammtechnik wird in diesen 
drei Fällen genutzt:Ein Ablauf wird mehrfach benötigt; mehrere 
Personen kooperieren und liefern ihre Teilproblemlösungen als 
Unterprogramme ab; menügesteuerter Dialog (Menütechnik). Der 
Begriff des Unterprogramms bzw. der Prozedur entspricht dabei 
dem des Moduls. Die bekannteste Schnittstelle ist der Unter- 
programmaufruf mit Parameterübergabe. 


Die Menütechn ik erleichtert den benutzergesteuer- 
ten Dialog. Über das Menü als Auswahlübersicht steuert der Be- 
nutzer den Ablauf des Programms, ohne zuerst alle Befehle ler- 
nen zu müssen. 

Das Menü als Gedächtnisstütze bei der Eingabe kann in Tabel- 
lenform alternativ zum Bildschirm, auf dem sonst der Dialog 
protokolliert wird, angeboten werden. Dies setzt den schnellen 
Wechsel zwischen den Bildschirmseiten voraus. Oder das Menü 
wird als (Prompt-)Zeile ausgegeben, die zusätzlich zum Dialog 
‚ ständig am oberen Bildschirmrand stehen bleibt. 

Bei der Split-Screen-Technik werden Rechteckbereiche des Bild- 
schirms wie eigenständige Bildschirme bzw. Fenster behandelt. 
Über ein solches Fenstersystem kann der Benutzer Menüs an je- 
der Stelle des Bildschirms erscheinen lassen. 

Die Menütechnik kann sich auf das Arbeiten innerhalb 
eines Programms wie auch auf das Verbinden mehrerer Programme 
beziehen. Im letzteren Fall wird beim Einschalten des Compu- 
ters bzw. beim Beenden eines Programms automatisch ein Menü- 
programm geladen, das am Monitor alle verfügbaren Programme 
anzeigt; der Benutzer kann durch Tippen z.B. eines Buchstabens 
dann das gewünschte Programm laden, ohne sich um den Speicher- 
ort auf Diskette kümmern zu müssen. Hierarchische 
Menüs teilen eine Aufgabe in übergeordnete Menü-Ebenen auf. 
Im Hauptmenü stehen häufig verwendete Funktionen und nach der 
Wahl erscheint das nächste Menü mit weiter detaillierten Funk- 
tionen. 

Pop-up-Menüs erscheinen auf Tastendruck, bieten mehrere Mög- 
lichkeiten zur Auswahl an und verschwinden, sobald eine Wahl 
getroffen wurde. Pop-up-Menüs halten also nicht auf und lenken 
auch nicht ab: sie erscheinen nur, wenn sie auch benötigt wer- 
den. 

Die Menüwahl erfolgt durch Klartexteingabe (Fehlerrisiko groß) 
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bzw. durch Tasten eines Zeichens oder dadurch, daß der Cursor 
auf die gewünschte Position gesetzt wird und dann die RETURN- 
Taste gedrückt wird. Die Menüwahl vereinfacht sich weiter bei 
Einsatz von Lichtgriffel oder Maus. 


Beider Overlaytechni k werden Moduln überlagert 
(=overlay) - z.B. wenn der Hauptspeicherplatz nicht ausreicht, 
um alle Moduln gleichzeitig aufzunehmen. Das im Hauptspeicher 
stehende Modul ruft ein anderes Modul auf, das dann von einem 
Externspeicher geladen und dem rufenden Modul überlagert wird. 


Der Ss. FU KEEP LETE ES Ent wur f bedeutet, daß 
ein Programm unabhängig von seiner Größe nur aus den vier (in 
Abschnitt 1.3.3 erklärten) grundlegenden Programmstrukturen 
aufgebaut sein darf: aus Folge-, Auswahl-, Wiederholungs- SOo- 
wie Unterprogrammstrukturen. Dabei soll auf unbedingtes Ver- 
zweigen mittels GOTO verzichtet werden. Jede Programmstruktur 
bildet einen Strukturblock. Blöcke sind entweder hintereinan- 
der angeordnet oder vollständig geschachtelt - die teilweise 
Einschachtelung (Überlappung) ist nicht zulässig. 

Sogenannte 'blockorientierte Sprachen' wie PASCAL, MODULA-2, 
ELAN und ADA unterstützen das Prinzip des strukturierten Ent- 
wurfs weit mehr als die "unstrukturierten Sprachen' wie BASIC 
und APL. 


Diese nur stichwortartig dargestellten Prinzipien dürfen nicht 
getrennt betrachtet werden; unter dem Informatik-Sammelbegriff 
strukturierte Programmierung faßt 
man sie zu einem heute allgemein anerkannten Vorgehen zusam- 
men. Die tragenden Prinzipien sind dabei der Top-Down-Entwurf 
mit der schrittweisen Verfeinerung einerseits und der struk- 
turierte Entwurf mit der Blockbildung andererseits. 


1.3.7.5 Programmgeneratoren 


Ein Programmgenerat or hat als Zwischenlösung 
seinen Standort zwischen der Programmierung in einer höheren 
Programmiersprache (BASIC, PASCAL) einerseits und dem Anpassen 
eines gekauften Anwenderprogramms durch Änderung der dafür an- 
gegebenen Parameter andererseits. 

So können im Dialog Benutzer-Computer Masken (Formulare) sowie 
Programmbeschreibungen erstellt werden, aus denen später z.B. 
BASIC-Anweisungen generiert, d.h. erzeugt werden. Die so er- 
zeugten BASIC-Programme sind über einen Interpreter lauffähig, 
können ggf. aber auch noch compiliert werden. 


Entsprechend spezialisiert werden Programmgeneratoren als Mas- 
kengenerator, Listengenerator, Grafikgenerator usw. bezeichnet 
und vor allem im Rahmen von Standard-Software bereitgestellt. 
Zum Maskengenerator ein Beispiel: Soll eine Maske für die Kun- 
dendatei erstellt werden, dann wird nach Aufruf des Generators 
auf dem Bildschirm eine Grundeinteilung vorgenommen. Der Be- 
nutzer setzt den Cursor dann auf die Stelle, an der ein Daten- 
feld angelegt werden soll, gibt die Bezeichnung ein (NAME) so- 
wie die Feldlänge (mit Cursor 20 Stellen nach rechts fahren). 
Auf diese Weise wird eine Bildschirmmaske aufgebaut. Der Gene- 
rator kann dann eine der Maske (als Blankoformular vorzustel- 
len) entsprechende Datei erzeugen bzw. einrichten. 
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1.3.8 Anwender-Software einsetzen 


Der Anwender hat drei Möglichkeiten, seinen Personalcomputer 
mit Software zu versorgen: Er kann selbst Programme entwickeln 
und den Computer als frei programmierbares Gerät nutzen - da- 
rauf sind wir im vorangehenden Abschnitt 1.3.7 eingegangen. Er 
kann aber auch fremde Software-Produkte kaufen: sei es in Form 


von individueller Software ‚ die (ent- 
sprechend teuer) genau nach seinen Vorgaben entwickelt wird, 
sei es in Form von Standard - Software, die 


zwar preisgünstiger ist, aber das Risiko birgt, die eigenen 
Organisationsstrukturen anpassen zu müssen. Als Kompromiß zwi- 
schen der kompletten Individuallösung und der standardisierten 
Allgemeinlösung versucht man, individuelle Software auf Stan- 
dardbasis zu entwickeln; dabei wird entweder über Programmge- 
neratoren bzw. Kommandosprachen programmiert oder über zwei 
logische Variablenebenen. 


1.3.8.1 Menügesteuerter oder kommandogesteuerter Dialog 


Beim Einsatz fremder Software muß der Benutzer sicher und kom- 
fortabel durchs Programm geführt werden, es kommt also auf die 
Benutzerführung an. Dabei bieten sich menü- und 
kommandogesteuerte Anwendungen an. 


Der Anfänger wird die Menüsteue rung schätzen; er 
wird über die ihm gerade zur Verfügung stehenden Eingabemög- 
lichkeiten - zum Menü zusammengefaßt - am Bildschirm jederzeit 
informiert, mehr noch: diese Möglichkeiten sind eingegrenzt, 
um den Benutzer relativ eng zu führen. Der Anfänger kann sich 
so ohne langes Handbuch-Studium an den Programmeinsatz wagen. 
Kennt er sich einmal im Programm aus, so wird der Weg durch 
Menüs und Menü-Ebenen allerdings auch als Hemmnis empfunden. 


Dann bietet sich die Kommandosteuerung über 
Kommandos an, die in einem Handbuch aufgelistet sind und vom 
Benutzer wahlfrei eingetippt werden können - mit dem Risiko 
entsprechender Fehlermeldungen natürlich. 


Gute Anwenderprogramme können beide Arten der Benutzerführung 
vorsehen: arbeitet der Benutzer fehlerlos, dann läuft das Pro- 
gramm kommandogesteuert ab, um bei häufiger auftretenden Feh- 
lern in einen menügesteuerten Ablauf zu wechseln. 

Oft werden auch zwei Bildschirm s e i t e n vorgesehen: eine 
Hauptseite mit dem eigentlichen Dialog sowie eine zusätzliche 
Hilfsseite mit Kommentaren und Texthilfen, zwischen denen der 
Benutzer jederzeit hin und her springen kann. 


Die Dialogsteuerung über Menü und Kommando ist bei der System- 
Software natürlich ebenso zu finden wie bei der Anwender-Soft- 
ware. So ist z.B. das Betriebssystem UCSD rein menügesteuert. 
Dies steht im Gegensatz zur Kommandosteuerung bei CP/M. 


1.3.8.2 Einige Programm-Qualitätsmerkmale 


Es soll hier kein Merkmalskatalog formuliert werden (dies auch 
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im Hinblick darauf, daß solche Merkmale für Software äußerst 
schwer meßbar sind), sondern einige praktikable Einzeltips: 


Wird Anwendersoftware zu einem Turn - Key - Paket 
geschnürt verkauft, so startet das (Menü-)Programm automatisch 
sofort nach dem Einschalten des Computers (Programmladen sowie 
Betriebssystem-Kenntnisse sind dann nicht erforderlich). 


Beim Scro 1 1 ing rutscht der Bildschirminhalt um eine 
Zeile hoch, wenn der Cursor unten den Bildrand erreicht hat. 
Zum schnellen Durchblättern zusammenhängender Texte kann die- 
ses Durchrollen von Information vorteilhaft sein. Andernfalls 
wird man den Bildschirm abschnittsweise total löschen und oben 
am Bildschirm neu beginnen. 


Beim Screen Edi t ing kann der Benutzer den Cur- 
sor an jede beliebige Bildschirinposition bewegen, um dort dann 
etwas zu korrigieren oder neu einzugeben. Der Bildschirm dient 
als Arbeitsblatt, -seite bzw. Formular. Sehr häufig bleibt an 
Bildschirmrand eine Menüzeile (auch Prompt- oder Systemzeile 
genannt) permanent stehen, um den Benutzer über Steuerungsmög- 
lichkeiten (Kommandos) und aktuelle Parameter (wie Zeilenlänge 
oder freien Speicherplatz) zu informieren. 


Die Zeichendarstellung darf nicht zu verwirrend sein. Häufige 
Invers - Felder (dunklere Schrift auf hellem Hin- 
tergrund) führen z.B. zu erhöhter Augenbelastung und sollten 
sparsam verwendet werden. 


Eine benutzerfreundliche Fehlerbehandlung muß 
al le möglichen Fehler abfangen (Plausibilitätskontrollen). 


zur Sicherheit müssen Tasten, die zum Absturz füh- 
ren (z.B. ESC-Taste), gesperrt sein. Keine Eingabe, auch nicht 
die 'berühmte' Division durch Null, darf dabei zum Aussteigen 
führen (Deadlock-Situation), die ein Abschalten und Neustarten 
erforderlich macht. Zur Sicherheit zählt auch die Datenschutz- 
fähigkeit eines Programms. 


Die Zuverlässigkeit nimmt den sicher höchsten 
Rang ein: das raffinierteste Programm ist wertlos, wenn es die 
Aufgaben nicht zuverlässig löst. 


Der Software-Qualitätssicherung wird heute im Rahmen des Soft- 
ware-Engineering mehr und mehr Beachtung geschenkt. 


1.3.8.3 Vier kaufmännische Standard-Programmpakete 


Die vier Programme Tabellenkalulation, Textverarbeitung, Datei 
bzw. Datenbank und Grafik sind fast auf jedem Personalcomputer 
Standard - voneinander isoliert oder auch integriert. 


Tabellenkalkulationsprogramme als 
'Spread Sheets' bzw. "Ausgebreitete Papierbogen' übertragen 
alles das, was bislang mit Bleistift, Papier und Taschenrech- 
ner vorgenommen wurde, in den Hauptspeicher (abgelegt) und auf 


64 1 Computer allgemein 


den Biläschirm (gezeigt). Der Benutzer baut jedes Arbeitsblatt 
als Tabelle auf, kann in die Tabellenzeilen und -spalten nume- 
rische oder auch Textwerte eintragen und durch eine Vielzahl 
von Formeln verknüpfen. Bei 'Visicalc' als dem ersten größeren 
Kalkulationsprogramm werden die Tabellenelemente ähnlich dem 
Schachbrett (Namen A1,A2,A3,...) angesprochen; "Multiplan' als 
jüngeres Konkurrenzprogramm von Microsoft ermöglicht dies mit- 
tels einfacher Cursor-Positionierung am Bildschirm. Arbeits- 
blätter können auf einem externen Speicher aufbewahrt werden. 
Tabellenkalkulationsprogramme lassen sich "zweckendfremden': 
Trägt man Text anstelle von Zahlen in die Tabelle ein, so kann 
leicht eine kleines Informationssystem realisiert werden. Ge- 
nauso sind Anwendungen zur Fakturierung, zum Bestellwesen, zur 
Bilanzierung usw. denkbar. Das Beiwort 'Kalkulation' verweist 
also eher auf die Ursprünge der Tabellenkalkulationsprogramme 
als auf deren heutige universellen Nutzungsmöglichkeiten. 


Textverarbeitungsprogramme für Per- 
sonalcomputer sind aus den Editoren entstanden, also aus den 
Programmhilfen zum Eingeben und Aufbereiten von Programmen am 
Bildschirm. Man hat sie zur Verarbeitung anderer Dokumente 
wie Briefen, Rechnungen, Manuskripten, Formularen usw. weiter- 
entwickelt. Damit treten sie in Konkurrenz zur Schreibmaschi- 
ne, zum Text-Automaten sowie zur Großrechner-Textverarbeitung. 
Die Textverarbeitung umfaßt die Teilprogramme Editor, Ausga- 
beformatierer und Verarbeitung; diese Programme können zu ei- 
nem Paket integriert oder getrennt sein. 
- Editor als Eingabe- und Bearbeitungsprogramm: 
Der ‘Bildschirm wird ähnlich wie eine Lupe über den Text be- 
wegt bis zu einem Bildschirmausschnitt, der cursorgesteuert 
zu bearbeiten ist (verschieben, einfügen, kopieren, Rand 
ausgleichen usw.). 
- Formatierer zur Aufbereitung der Druckausgabe: 
Man unterscheidet die folgenden zwei Arten von Formatierern. 
Bei der ersten Art erscheint der Text am Bildschirm so, wie 
er später ausgedruckt wird. Bei der zweiten Art sind in den 
Bildschirmtext Befehle zur Steuerung des Druckformates ein- 
gefügt. Bei der ersten Art wird 'gedruckt wie gezeigt'. Oft 
ist dies aber kaum exakt einzuhalten (Beispiel: 120 Zeichen 
je Druckzeile; Bildschirmzeile 80 Zeichen; Ausgabe-Text aus 
mehreren Dateien). 
- Eigentliches Verarbeitungsprogramn: 
Dieses richtet sich nach den Anforderungen der unterschied- 
lichen Benutzer wie Sekretärin, Abteilungsleiter, Schrift- 
steller, Schriftsetzer. Textbausteine als häufig vorkommen- 
Ge Textteile speichern, Serien- sowie Ganzbriefe erstellen, 
Formulararbeiten, Textdateien anlegen, Autorenkorrektur usw. 


Nach den Programmen zur Tabellenkalkulation und Textverarbei- 
tung nun zur patei / Datenbank , deren Grund- 
lagen bereits in Abschnitt 1.3.5 dargestellt wurden. 

Die kommerziellen Proyramm-Pakete hierzu werden unter den un- 
terschiedlichsten Bezeichnungen angeboten, z.B. als Dateiver- 
waltung, Datenmanager, Datenbankmeister, Datenbank-System oder 
schlicht als Datei-System. Da solche Begriffe kaum etwas aus- 
sagen, ist es sinnvoll, einzelne Eigenschaften dieser oft als 
"wir-können-alles-Programme" angepriesenen Software-Produkte 
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wie folgt zu überprüfen: 

- Dateiaufbau: 
Anzahl der gleichzeitig geöffneten Dateien? Satzanzahl einer 
Datei? Anzahl der Datenfelder je Satz? Feste Satzlänge? Da- 
tentypen? Maximale Feldlänge? Maximale Dateigröße? Eine Da- 
tei auf mehreren Disketten? 

- Systemverwaltung: 
Schnittstelle zu höheren Programmiersprachen? In Mehrplatz- 
Umgebung einsetzbar? Abfragesprachen, Listen- bzw. Programm- 
generatoren? Dynamische Dateiverwaltung? Kompatibilität zu 
anderen Dateien (z.B. aus Textverarbeitung)? Datensatzaufbau 
nachträglich änderbar? Implementierungen für welche Mikros? 
Datei-Sicherheitskopien leicht erstellbar? Daten nach Lösch- 
en wiederherstellbar? Datenschutz durch Datei- bzw. Satzpaß- 
wort? Realisierung als Datenbankmaschine? 

- Speicherung: 
Aufwand zum Neueinrichten der Datenbank? Cursorsteuerung? 
Datenprüfung bei Eingabe? Daten aus anderen Dateien kopier- 
bar? Speicherung satz-, block- oder dateiweise? Eingabefeh- 
lerkorrektur möglich? Ablegen als Binärdatei oder Textdatei? 

- Zugriff: 
Zugriffsmodus direkt oder indirekt? Anzahl der Suchbegriffe? 
Schlüssel aus einem oder mehreren Datenfeldern bestehend? 
Sortierbegriffe für wieviele Datenfelder? Sortierprogramme? 
Index intern als Tabelle? Möglichkeiten zur Datenausgabe? 
Ausgabeeinheiten für Listen? Zwischensummenbildung in Lis- 
ten möglich? 


ZzumGrafikprogramm als viertem Standard-Paket: 
Programme dieser Kategorie erlauben es, Kuchen-, Säulen- sowie 
Liniengrafiken menügesteuert über einen hochauflösenden Bild- 
schirm und z.B. einen Matrixdrucker mit Einzelpunktansteuerung 
zu erstellen und auszugeben. Die Skalierung der Bilder kann im 
Dialog festgelegt werden. Oft können dreidimensionale Grafiken 
bzw. räumliche Formen erzeugt werden. Gerade für kommerzielle 
Veranschaulichungen sind Grafikprogramme mit den statistischen 
Grundfunktionen von Vorteil. 

Ein Grafikprogramm kann nur dann sinnvoll genutzt werden, wenn 
man Daten aus anderen Programmen übergeben kann. Wir kommen so 
zur Frage der Verbindung bzw. Kompatibilität dieser Programme. 


Sollen Tabellenkalkulation, Textverarbeitung, Datenbank sowie 
Grafik nicht isoliert, sondern als eine Einheit genutzt werden, 
müssen entsprechende Schnittstellen zu den Programmen gegeben 
sein. Zur Verbindung dieser Programme ein Beispiel: 

In einem Tabellenkalkulationsprogramm verknüpft man Zahlen, um 
diese dann an ein Grafikprogramm zwecks Diagrammdarstellung zu 
übergeben. Anschließend wird über das Textverarbeitungspro- 
gramm ein Bericht verfaßt, in den diese Zahlen als Tabelle wie 
auch als Diagramm bildlich eingebunden sind. Schließlich kann 
man die Teile dieser Arbeit über das Dateiprogramm extern und 
langfristig speichern. 

Wie können die vier Programme nun verbunden werden? Zum Bei- 
spiel über Textdateien (alle Zeichen als Text im ASCII-Code 
dargestellt) als gemeinsamer Schnittstelle. Die Steuerung kann 
über ein übergeordnetes Menüprogramm erfolgen, das die einzel- 
nen Programme aufruft und den Datenaustausch überwacht. 
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1.3.8.4 Teillösung und Gesamtlösung im Betrieb 


Wird ein Personalcomputer im kleineren Betrieb als Allzweck- 
System eingesetzt, dann sicher mit dem (Fern-)Ziel, sämtliche 
betrieblichen Funktionen wie Materialwirtschaft, Betriebsab- 
rechnung, Finanzbuchhaltung, Personalwesen sowie Auftragsbear- 
beitung über e i n Software-Paket zu bearbeiten: man spricht 
dabei von "integrierter DV' (vgl. Abschnitt 1.3.5.5). Auf dem 
weiten Weg zu einer solchen Gesamtlösung wird man 
zunächst als Te i 116Öös ung einzelne Funktionen auf die 
DV übernehmen: So die Fakturierung der Ausgangsrechnungen mit 
Kunden-, Artikelstamm- und Offene-Posten-Datei, die später in 
die Auftragsbearbeitung integriert werden kann. Oder als wei- 
tere Teillösung das Personalwesen mit Lohn- und Gehaltsabrech- 
nung mit der späteren Anbindung zur Finanzbuchhaltung mit Kre- 
ditoren-, Debitoren- und Sachbuchhaltung. 


BUCHHALTUNG: PERSONALWESEN: 
Kreditoren, Debitoren, Stammdatenverwaltung, 
Sachkontenverwaltung, Monatsgehalt, 

Offene Posten, Bilanz, Überweisungsträger, 
Erfolgsrechnung, ... a Be Nachweislisten, ... 
MATERIALWIRTSCHAFT: PERSONAL BETRIEBSABRECHNUNG: 
Permanente Inventur, ” | COMPUTER Nachkalkulation, 
Lagerbestandsführung, Umsatzstatistik, 


Bestellwesen, ... | Kostensätze, ... 


AUFTRAGSBEARBEITUNG: 
Auftragsverwaltung, 
Erfassung, Rückstände, 
Fakturierung, ... 


Integrierte Datenverarbeitung als Ziel 


Anwender-Software, die eine integrierte Bearbeitung aller in- 
nerbetrieblichen Vorgänge ermöglichen soll, wird immer häufi- 
ger als Branchen 1&öÖs un g angeboten. Diese ist auf 
eine bestimmte Branche gerichtet. Beispiele: Handwerksbetrieb, 
Rechtsanwaltskanzlei, Immobilienfirma, Großhandel, vVersicher- 
ung, Zahnarztpraxis, Einzelhandel, Leasing oder Vertreter. 


1.3.8.5 Nicht nur am Rande: Spielprogramme 


"Immerhin noch besser als das n u r passive Fernsehen" - so 
wird das Vordringen der "Arcade-Games' genannten, computerge- 
steuerten Spiele von der Spielhalle ins Wohnzimmer sehr häufig 
kommentiert. 

Gespielt wird mit reinen Spielautomaten ('rein', weil sie aus- 
schließlich zum Spielen da sind; "Automat', da sie nicht frei 
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programmierbar sind und deswegen strenggenommen auch nicht als 
Computer bezeichnet werden dürfen) oder mit Personalcomputern, 
die auch hardwaremäßig durch Steuerknüppel (Joystick), Auslö- 
setaste, Lichtgriffel usw. entsprechend ausgestattet sind. Ge- 
rätehersteller und spezialisierte Softwareproduzenten teilen 
sich den Markt. Angeboten werden die Spielprogramme dabei auf 
Einsteckmodul (Firmware) und auf Kassette wie Diskette (Soft- 
ware). Die vom Hersteller programmierten ROM-Moduln sind sehr 
einfach zu bedienen (Modul in den Schacht stecken und Programm 
starten) und vom Benutzer nicht zu kopieren. Da immer häufiger 
kommerziell genutzte Personalcomputer zum Spielen benutzt wer- 
den, wird das Spielangebot auf Kassette und Diskette bestimmt 
nicht abnehmen. 


Gemeinsam mit und gegen den Computer kann auf unterschiedliche 
Weise gespielt werden: 
- Geschicklichkeitsspiele: 
Übernahme altbekannter Spiele auf den Computer. 
- Neue Spielarten: 
Spiele wie Pac Man und Pillenfresser sind erst durch den 
Computer möglich geworden (Bewegung, hochauflösende Grafik). 
- Abenteuerspiele: 
Von der Wirklichkeit ir die Phantasiewelt am Bildschirm. 
- Simulations- und Rollenspiele: 
Modellbildung der Wirklichkeit; Planspieltechnik. 
- Spezielle Kinderspiele: 
... auch Mickey Mouse und Sesamstrasse. 
- Schachspielprogramme: 
Schon weniger als '"Spielzeug' abzutun. 
- Lehr- und Lernspiele: 
Fremdsprachen erlernen, naturwissenschaftliche Experimente, 
Computer-Unterstützter Unterricht (CUU), ... 


Bleiben die Unterhaltungsspiele, die weder die Kreativität an- 
regen noch das Denkvermögen fordern, weiter d ie Verkaufs- 
schlager? 

Werden in Zukunft auch die Lehr/Lernspiele nachgefragt? 

Wird der Computer als "perfekter Gespiele'" den Menschen als 
"menschlich nicht-perfekten Spielpartner" noch mehr verdrängen 
können? 

In jedem Falle positiv: ganz im Gegensatz zum Konsumieren ist 
das Entwerfen und Programmieren neuer Spielprogramme ein sehr 
anregendes und kreatives Unterfangen. 


1.4 Firmware = halb Hardware + halb Software 


Als Firmware (feste Ware) hatten wir alle Information 
bezeichnet, die an der Nahtstelle zwischen Hardware und Soft- 
ware in computerverständlicher Form gespeichert vorliegt (vgl. 
Abschnitt 1.1.1). Speichermedium für Firmware ist der ROM als 
Festwert-Speicher. Für den ROM-Hersteller, der Information in 
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den ROM speichert, handelt es sich dabei um Software; für den 
Benutzer dagegen, der den ROM z.B. als Steck-Modul kauft, sind 
die Daten und Programme wie Hardware, da er sie nur anwenden 
(=lesen), nicht aber verändern (=beschreiben) kann. 


1.4.1 IC als Integrierter Schaltkreis 


Beim Öffnen des Gehäuses eines Personalcomputers entdeckt man 
in jedem Fall vier Teile: 


- Ein Netzteil bzw. Transformator als großes Teil zur Strom- 
versorgung. 

- Platinen als Leiterplatten, auf denen Schaltkreise (Chips) 
montiert sind. 

- Verbindungsleitungen 

- Stecker als Schnittstellen zum Kontakt mit der 'Außenwelt' 


Wichtig sind die Chips. Ein Ch ip ist ein kleines Plätt- 
chen aus Silizium, auf das im Zuge der Herstellung bestimmte 
Schaltelemente zu einer untrennbaren Einheit eingeschmolzen 
bzw. integriert werden. Deshalb bezeichnet man den Chip auch 
als Integrierten Schaltkreis mit der 
Abkürzung IC für "Integrated Circuit'. Genaugenommen schmelzt 
man auf einen Chip mehrere Schichten aus jeweils verschiedenen 
Stoffen ein, deren Strukturen dann ein Verhalten ergeben, das 
einem Transistor, Kondensator, Widerstand usw. entspricht. 


Tanz tzergernrresr Gresr SPecheanerkerzezies 
(IC, Chip, Baustein, Stein, 'Modul') 


LOGIK-BAUSTEIN SPEICHER-BAUSTEIN 

= aktiver Baustein = passiver Baustein 
Mikroprozessor Speicher ROM Speicher RAM: 
Funktionen von Hersteller hat Hersteller hat 
Steuer- und Information fest Baustein ohne 
Rechenwerk auf eingeschmolzen Inhalt gefertigt 
einem Chip 

integriert 


zumeist 
Programme 


Programme 
und Daten 


Anwender kann Anwender kann 
nur lesen lesen/schreiben 


Zwei grundsätzliche Verwendungsmöglickeiten von ICs 


Das Siliziumplättchen als Trägerkristall ist stets in ein Ge- 
häuse mit z.B. 16 Füßen (Pins) als Anschlüsse eingebaut. 
Je nach Anordnung der Bauelemente kann man einen Chip als Lo- 
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gikbaustein oder als Speicherbaustein verwenden: 

wird ein Chip als aktiver Baustein zur Ausführung von Befehlen 
verwendet, dann nennt man den Chip Logikbaustein 
(weil nach einer bestimmten Ablauflogik vorgegangen wird) oder 
kurz Mikroprozessor. Der erste Mikroprozessor 
wurde 1970 auf den Markt gebracht. 

Der Chipals Speicherbaust ein zur Speicherung 
von Daten und Programmen wurde erst später entwickelt. Zwei 
Speicherarten unterscheidet man: Bei dem mehrfach erwähnten 
Speicher ROM (Read Only Memory) als Nur-Lese-Speicher kann der 
Benutzer nur lesen, da die Programme als Firmware fest im ROM 
gespeichert sind. Im Gegensatz dazu ist der Speicher RAM (Ran- 
dom-Access-Memory) ein Schreib-Lese-Speicher, d.h. ein Direkt- 
zugriff-Speicher. Hauptspeicher von Personalcomputern sind als 
RAM-Speicher ausgebildet und nehmen das Anwenderprogramm sowie 
die zu verarbeitenden Daten auf. 


1.4.2 Prinzipieller Aufbau eines Mikrocomputers 


Ein Mikro- bzw. Personalcomputer ist im Prinzip genauso aufge- 
baut wie jeder andere Computer (vgl. Abschnitt 1.2.2.1), nur 
sind die Internspeicher als Speicher RAM bzw. ROM ausgebildet 
und die CPU als Mikroprozessor (der Prozessor besteht aus der 
ALU (Arithmetic Logic Unit bzw. Rechenwerk), dem Leitwerk und 
Registern als Speichereinheiten). Ein I/O - Baustein regelt 
den Datenaustausch mit den jeweiligen Ein-/Ausgabegeräten, 
ein Datenbus die Übertragung von Daten (Ziffern, Buchstaben 
ben und Befehlen) und ein Adreßbus die Übertragung von Spei- 
cherplatzadressen. 

Der Mikrocomputer hat Interne Speicher RAM und ROM (als Haupt- 
speicher, Arbeitsspeicher, Memory oder Kurzzeitgedächtnis be- 
zeichnet) einerseits und Externe Speicher wie z.B. eine Dis- 
ketteneinheit andererseits. Deshalb unterscheidet man zwischen 
dem internen und dem externen Datenbus: Über den internen 
Datenbus werden Daten zwischen der ALU, dem Leitwerk, den Re- 
gistern und den Speichern RAM und ROM transportiert, während 
der externe Datenbus die Datenübertragung zu den Externspei- 
chern übernimmt, also zu einer Diskette oder einer Hard Disk. 
Entsprechend gibt es auch einen internen und einen externen 
Adreßbus. 


BUS: Datenbus, Adreßbus 


I 
Eingabe/ | <——— PERIPHERIE 
(Externe 
— 3 Speicher) 
[6] 
Rechen- Anwender- vorge- Peripherie: Tastatur, Bild- 
(ALU), programm gebene schirm, Diskette, Kassette, 


Leitwerk und Daten Programme Festplatte, ... 


Aufbaumodell eines Mikro- bzw. Personalcomputers 
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Wie läuft nun ein Programm ab? Nach dem Start schickt der Mi- 
kroprozessor über den Adreßbus die Adresse des 1. Programmbe- 
fehls an den Speicher, in dem sich das Programm befindet. Dann 
transportiert der Speicher den unter dieser Adresse gefundenen 
Befehl über den Datenbus an den Mikroprozessor. Nach Aus- 
führung des Befehls schickt dieser wiederum die Adresse des 2. 
Programmbefehls an den Speicher usw. 


1.4.3 Typen von Mikrocomputern 


Es gibt Mikroprozesoren mit 8-, 16- und 32-Bit-Struktur. Da 
der Mikroprozessor als "Herz des Computers" die Computereigen- 
schaften entscheidend prägt, unterscheidet man auch für Mikro- 
computer diese drei Typen. 


1.4.3.1 8-Bit-Mikrocomputer 

"Das ist ein 8 - Bit - Computer". Damit ist ein 
Computer mit einem 8-Bit-Mikroprozessor bzw. einer 8-Bit-CPU 
gemeint. Die 8 Bit als Wortbreite des Prozessors kann als ele- 
mentarer Denkinhalt des Computers aufgefaßt werden. Warum? Der 
Datenbus transportiert Daten und Befehle und besteht aus 8 pa- 
rallelen Leitungen. Übertragen wird zeichenweise: der Buch- 
stabe "K" wird im ASCII-Code als 01001011 (1. Leitung 1, 2. 
Leitung 1, 3. Leitung 0, ...) durch den Datenbus gesendet. Mit 
den 8 Bits bzw. den 8 Leitungen des 8-Bit-Datenbus können also 
genau 256 (gleich 2 hoch 8) Zeichen vom Computer unterschieden 
werden. Für die Verarbeitung im ASCII-Code ist diese Zahl von 
256 gerade passend. Es genügt, 256 verschiedene Zeichen unter- 
scheiden zu können. 


Beim Adreßbus sieht dies anders aus: Durch diesen Bus gelangen 
nicht die Daten selbst, sondern deren Hausnummern bzw. Adres- 
sen, unter denen sie im Speicher abgelegt sind (jeder Speicher 
ist fortlaufend durchnumeriert mit Speicherplatz 1, Speicher- 
platz 2, Speicherplatz 3, ...). Damit bestimmt die Anzahl der 
Adreßbus-Leitungen die Anzahl der Speicherplätze, die der Com- 
puter unterscheiden bzw. adressieren kann. Ein 8-Bit-Adreßbus 
kann nur 256 Speicherplätze direkt adressieren. Da dies viel 
zu wenig ist, verwenden die gängigen 8-Bit-Mikroprozessoren in 
der Regel einen Trick: Sie bauen Adressen aus zwei Bytes auf, 
die nacheinander über den Adreßbus zum Hauptspeicher geschickt 
werden. Damit können diese 8-Bit-Computer dann genau 65536 
(2 hoch 16) Zeichen bzw. Bytes anwählen und auch adressieren 
(65536 Bytes = 64 mal 2 hoch 10 = 64 KBytes = kurz 64 K). Dies 
gilt für die beiden weitverbreiteten 8-Bit-CPUs 280 und 6502. 


1.4.3.2 16-Bit-Mikrocomputer 


Die Wortbreite des externen Datenbus bestimmt, ob man einen 
8-Bit-Computer oder aber einen 16-Bit-Computer vor sich hat, 
nicht aber die interne Länge von Registern, die Wortbreite des 
Rechenwerks oder die Befehlslänge. Danach verfügt ein "echter" 
16 - Bit - Computer über einen internen wie auch 
einen externen 16-Bit-Bus. 
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Wenn Personalcomputer wie Sirius 1 oder IBM-PC häufig als 16- 
Bit-Computer bezeichnet werden, dann muß man sich darüber im 
klaren sein, daß die dabei verwendete CPU 8088 zwar 16-Bit-Re- 
gister und Operationen zur Verarbeitung von 16-Bit-Worten auf- 
weist, also einen internen 16-Bit-Bus hat, aber nur einen ex- 
ternen 8-Bit-Bus. Dies bedeutet, daß die 16 Bits der Register 
zum Ausgeben wie zum Laden durch den Datenbus stets halbiert 
bzw. zusammengefügt werden müssen. 

Geräte mit externem 8-Bit-Bus und internem 16-Bit-Bus bezeich- 
nen wir als 8/16 - Bit - Computer . Aufgrund ih- 
rer Stellung zwischen der echten 8-Bit-Struktur und der echten 
16-Bit-Struktur bezeichnet man sie häufig als "'Zwitter'. 


Warum kann ein 16-Bit-Computer nun schneller arbeiten als ein 
8-Bit-Computer? 

Der Bus eines 8-Bit-Computers hat 8 parallele Leitungen. Damit 
können die (2 noch 8 gleich) 256 Zahlenwerte 0,1,2,...,255 in 
einem Schritt bzw. Zeittakt übermittelt werden. Will man 
größere Zahlen übertragen, müssen diese aufgeteilt und in zwei 
oder mehreren Schritten transportiert werden. Dieses Aufteilen 
kostet natürlich Zeit. 

Dies erübrigt sich beim 16-Bit-Computer, wenn die Zahlenwerte 
0,1,2,...,65535 übermittelt werden sollen. Der 16-Bit-Bus mit 
16 Leitungen erlaubt (2 hoch 16 gleich) 65536 Kombinationen 
bzw. Zahlenwerte, die in e ine m Schritt übermittelt wer- 
den. 

Der Unterschied zwischen 8-Bit-Computern und 16-Bit-Computern 
ist also viel größer als es der Zahlenvergleich "8 zu 16 Bit" 
nahelegt: die Hochrechnungen und damit verbunden der Zahlen- 
vergleich "256 zu 65536 Kombinationen" zeigen den wahren Un- 
terschied zwischen diesen Computertypen. 


1.4.3.3 32-Bit-Mikrocomputer 


Das Leistungsvermögen eines Computers hängt im wesentlichen 
von zwei Größen ab: von der Anzahl der Bits (Wortbreite) und 
von der Schnelligkeit. 32-Bit-Computer weisen bei beiden Grö- 
ßen günstige Werte auf. Zunächst zur Bitanzahl: 

Bei den echten 32-Bit-Computern sind 32 parallele Leitungen im 
Bus zusammengefaßt. Damit vergroßert sich ihr Adreßraum theo- 
retisch auf vier Milliarden Zeichen (vier Gigabytes). Außerdem 
können Computer mit 32-Bit-Struktur binäre Zahlen anstatt auf 
acht Stellen (beim 8-Bit-Mikro) auf 32 Binärstellen genau be- 
arbeiten. Der Befehlsvorrat nimmt ebenfalls zu: die 8-Bit-CPU 
des 6502 versteht 56 Befehle gegenüber den 134 Befehlen des 
16-Bit-Prozessors 8086 und den 230 Befehlen des 32-Bit-Compu- 
ters HP Focus von Hewlett-Packard. 


Die Schnelligkeit eines Computers gibt man in "Millionen In- 
struktionen je Sekunde" (Mips) an. Sie hängt von der Taktfre- 
quenz und von den Abmessungen des Prozessor-Chips ab (je klei- 
ner die Abstände der Leiterbahnen auf der Prozessor-Platine, 
desto höhere Taktfrequenzen und damit Instruktionen je Sekunde 
sind möglich). Die 32-Bit-CPU 32032 soll 1,1 Mips ermöglichen. 
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1.4.4 Generationen von Mikroprozessoren 


Die bislang angeführten Mikroprozessor-Kürzel 280, 6502 sowie 
8088 können leicht in eine etwas übersichtlichere Ordnung ge- 
bracht werden, da es im Grunde nur zwei "Familien" von 8-Bit- 
Prozessoren gibt: die 80-Familie und die 65xx- bzw. 68xx-Fami- 
lie. 1970 erfand Dr. Ted Hoff bei Intel mit dem 4004 den 4-Bit 
Mikroprozessor, 1973 folgte der 8080 als 8-Bit-CPU. Seit 1976 
gelten der 280 von Zilog und der 6502 von Motorola als haupt- 
sächliche Vertreter der nach ihnen benannten Familien. Bereits 
1979 war der 6502 der weltweit meistverkaufte Mikroprozessor. 
Sein Nachfolger 68000 weist als 16-Bit-Mikroprozessor bereits 
einen 16-Bit-Datenbus bei intern 32-Bit-breiten Registern auf, 
er zählt also zu den 'Zwittern' mit 16/32-Struktur. 


Prozessor: Bits: Adressen: Befehle: Hersteller: Seit: 
280 8 256 B 158 zilog 1976 
6502 8 256 B 56 MOS-Tech. 1977 
2800 8/16 16 MB 183 Zilog 1983 
8088 8/16 64 KB 134 Intel 1979 
iAPX 188 8/16 1 MB 95 Intel 1982 
8086 16 1 MB 134 Intel 1978 
28000 16 64 KB 110 zilog 1981 
iAPX 286 16 16 MB 111 Intel 1982 
iAPX 186 16 1 MB 95 Intel 1982 
MC 68000 16/32 16 KB 56 Motorola 1979 
NS 16032 16/32 16 MB 86 Nat.Semi. 1982 
MC 68010 168/32 16 MB 58 Motorola 1982 
HP Focus 32 500 MB 230 Hewlett-P. 1981 
NS 32032 32 16 MB 190 Nat.Semi. 1983 
iAPX 386 32 32 MB sn Intel 1984 
MC 68020 32 256 MB 200 Motorola 1984 


8/16 = externer 8-Bit-Bus und interner 16-Bit-Bus (Zwitter) 
16 = externer wie interner 16-Bit-Bus (echte 16 Bit-Struktur) 


Einige weitverbreitete Mikroprozessoren 


Es gibt Personalcomputer, die zwei Mikroprozessoren aufweisen, 
um sowohl auf 8-Bit-Software als auch auf 16-Bit-Software zu- 
greifen zu können. Ein Beispiel: ein 280 als 8-Bit-CPU führt 
Programme für das Betriebssystem CP/M-80 aus und ein 8088 als 
16-Bit-CPU verarbeitet Programme unter CP/M-86. 


1.4.5 Mikrocomputer und ihre Mikroprozessoren 


Im Jahr 1984 verteilen sich die auf dem Markt verwendeten Pro- 
zessoren wie folgt: 

60 Prozent 8-Bit-Prozessoren, 20 Prozent 16-Bit-Prozessoren, 
ein Prozent 32-Bit-Prozessoren und ungefähr je 10 Prozent als 
Zwitter mit 8/16-Bit-Prozessoren bzw. 16/32-Bit-Prozessoren. 
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Bit-Struktur: Prozessor: Mikrocomputer z.B.: 

8 6502 Apple IIe, CBM 8032 

8/16 8088 TBMZRE/KTTETBMER GE, STrMUSEelE, 
16 8086 STrauseVick1,2177. 30307, Düetl6e 
16 28000-8001 Olivetti M20, Zilog 8000 

16/32 MC68000 Apple Lisa, Fortune 32:16 

16/32 NS 16032 Nat.Semi.DB16000, ACORN-BBC 
32 HP Focus Hewlett Packard 9000 


Einige Mikrocomputer und ihre Prozesoren 


1984 besteht eine 32-Bit-Softwarelücke. Entscheidend ist, daß 
32-Bit-Software abwärts-kompatibel gestaltet wird, um auch auf 
Computern mit externem 16-Bit-Bus oder 8-Bit-Bus eingesetzt 
werden zu können. 


1.4.6 EPROM als löschbarer Speicher 


Benutzer von Mikrocomputern werden zuweilen in 'Löter' und in 
'Tipper' eingeteilt: Bauen sich die 'Löter' ihr DV-System aus 
elektronischen Bausteinen hardwaremäßig individuell zusammen, 
so erwerben sich die 'Tipper' einen Computer, um diesen selbst 
zu programmieren (Programm-Tipper) oder gekaufte Software auf 
die eigenen Daten anzuwenden (Daten-Tipper). Die zwei folgen- 
den Entwicklungen verwischen diese Einteilung in 'Löter' sowie 
in 'Tipper' immer mehr: 


Zum einen werden EPROMs als löschbare Speicher immer einfacher 
in der Handhabung, wodurch es auch für die 'Tipper' leichter 
wird, die bislang dem "Löter' vorbehaltene Arbeiten durchzu- 
führen. 

Ein EPROM (Erasable Programmable Read-Only-Memory) als lösch- 
barer und sodann wieder programmierbarer Festwertspeicher ROM 
ist zwischen den RAM und den ROM einzuordnen. Legt man ihn un- 
ter UV-Licht und bestrahlt den unter einem kleinen Fenster an- 
gebrachten IC, so wird die gespeicherte Information gelöscht. 
Aus diesem Grunde muß ein EPROM stets mit einem undurchsichti- 
gen Fensteraufkleber versehen sein. Umgekehrt können über ein 
Programmiergerät neue Daten und Programme in den EPROM gespei- 
chert werden. Da EPROMs direkt bus-kompatibel sind, d.h. die 
Ausgänge sich direkt an den Datenbus legen lassen, ist dieses 
Vorhaben nicht nur für die 'Löter' interessant. Auch der 'Tip- 
per' kann so seine eigenen Programmentwicklungen leicht in ei- 
nen Festwertspeicher laden. 


Zum anderen können kommerzielle Programme ebenfalls über ein 
EPROM kopiert werden. Ein Beispiel: Der 'Tipper' geht mit sei- 
ner Romox-EPROM-Kartusche in einen Software-Laden, sucht ein 
Programm aus, läßt sich eine Kopie dieses Programms über ein 
im Software-Laden befindliches Gerät in seine EPROM-Kartusche 
laden (Gebühr 5-10 DM), geht nach Hause, steckt die Kartusche 
in seinen Computer und läßt das Programm laufen. Später kann 
er bei Bedarf dann immer wieder ein anderes Programm in den 
EPROM hineinkopieren. 
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2.1 Arbeiten im direkten Modus: CPC als Tischrechner 79 


Nach dem Einschalten des Schneider CPCs erscheint eine 
Systemmeldung wie z.B.: 

Schneider 64K Microcomputer (V1) 

(c) 1984 Amstrad Consumer Electronics plc 

and Locomotive Software Ltd. 

BASIC 1.0 
Ready 
c 


Das "Ready" ist das Prompt- bzw. Bereitschaftszeichen des im 
Schneider fest eingebauten BASIC. Es meldet, daß der CPC be- 
reit ist und auf Eingaben des Benutzers wartet. Unter dem Be- 
reitschaftszeichen "Ready" steht der Cursor als leuchtender 
Punkt. Der Cursor markiert die Stelle, an der das nächste vom 
Benutzer eingegebene Zeichen entgegengenommen wird. 


2.1.1 Rechnen im direkten Dialog 


Wir wollen den PC wie ein Tischrechner benutzen und 100+3 aus- 
rechnen lassen. Dazu tippen wir ein: 


PRINT 100+3 /Enter/ 


Nach dem Tippen von 100+3 drücken wir die Enter-Taste. Die 
Schreibweise /Enter/ steht für "Enter-Taste bzw. '<—J '-Taste 
drücken". Der PC antwortet mit dem Ergebnis 103 und meldet mit 
dem Bereitschaftszeichen Ready, daß er für weitere Eingaben von 
uns bereit ist. Am Bildschirm steht nun der folgende Dialog: 


PRINT 100+3 /Enter/ (=Eingabe von uns) 
103 (=Ausgabe des Computers) 
Ready (=Ausgabe: Bereitschaftszeichen) 


- (=Ausgabe: - für "Cursor blinkt') 


Die PRINT-Anweisung dient hier der Ausgabe von Rechenergebnis- 
sen (print für Ausdrucken, Ausgeben). Probieren wir einige an- 
dere Rechenoperationen aus (/Enter/ lassen wir dabei weg): 


PRINT 100.5%*-3 (=Eingabe: 100.5 mal -3) 

-301.5 (=Ausgabe einer negativen Zahl) 
PRINT 100/3 (=Eingabe: 100 dividiert durch 3) 
33.33333 (=Ausgabe mit 7 Dezimalstellen) 
PRINT 4N3 (=Eingabe: 4 hoch 3) 

64 (=Ausgabe: 4 mal 4 mal 4) 

PRINT 300+3%*4 (=Eingabe: 300 plus (3 mal 4)) 
312 (=Ausgabe: Punkt- vor Strich) 
PRINT (300+3)*4 (=Eingabe: 303 mal 4) 


1212 (=Ausgabe: Klammern zuerst) 
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Zahlen werden auf 5 Dezimalstellen genau ausgegeben, also z.B. 
als 33.3333. Bei Dezimalzahlen wie z.B. bei 100.5 steht der 
Dezimalpunkt, nicht aber das Komma. Geben wir mehrere Rechen- 
zeichen in einer Zeile ein, dann werden die Rechenoperationen 


+ (plus), - (minus), * (mal), / (geteilt), A (hoch) sowie ( ) 
(Setzen von Klammern) in der in der Mathematik üblichen Rang- 
folge ausgeführt. * und / sowie + und - sind gleichrangig. 
( ) Klammer 5 Die weiter 
- Negative Zahl (Vorzeichen) obenstehende 
A Potenzieren (Hochzeichen) Rechenoperation 
* / Multiplizieren, Dividieren wird vor der 
+ -— Addieren, Subtrahieren untenstehenden 


ausgeführt. 


Rangfolge bei der Ausführung von Rechenoperationen 


zahlen bis zu 9 Stellen gibt der CPC in der normalen Darstel- 
lung aus. Große Zahlen über 9 Stellen und sehr kleine Zahlen 
werden in Exponentialdarstellung ausgegeben: 


PRINT 3000000000000000 (=Eingabe: 8-stellige Zahl) 
3000000000000000 (=Ausgabe unverändert) 

PRINT 30000000000000000 (=Eingabe: 17-stellige Zahl) 
3E+09 (=Ausgabe: 3 mal 10 hoch 9) 
PRINT 300000000000000000 (=Eingabe) 

3E+17 (=Ausgabe) 


Das Anweisungswort PRINT läßt sich durch das Fragezeichen ab- 
kürzen. "PRINT 3/6" können wir damit kürzer als "? 3/6" einge- 
ben. Auch der PC kürzt ab: so gibt er die Zahl 0.5 kurz als .5 
aus. Ein Tip: Geben wir O (Oh) anstelle von O0 (Null) ein, dann 
verarbeitet der PC dieses Zeichen (Buchstaben O) getrennt. 


? 30 (=Eingabe: keine Null, sondern O) 
3. 0 (=Ausgabe: Zeichen 3 und Zeichen O) 


Anweisungen können wir z.B. als PRINT auch als print oder 
als PRinT schreiben. Vor der Ausführung wandelt der PC die An- 
weisung stets in Kleinbuchstaben um. 
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2.1.2 Editieren des Bildschirminhaltes 


1. Eingabe abschließen mit Taste /Enter/ bzw. /J /: 
Diese Funktionstaste haben wir bereits kennengelernt. Mit der 
/Enter/-Taste schließen wir die jeweilige Eingabezeile ab und 
bewegen den Cursor an den Anfang der nächsten Zeile. 


2. Cursorsteuerung mit den vier Pfeil-Tasten: 
Durch Drücken der Tasten mit den Bezeichnungen 


/Yv/ Cursor nach unten 
IA] Cursor nach oben 

ey} Cursor nach rechts 
1 | Cursor nach links 


können wir mit dem Cursor jede Stelle auf dem Bildschirm an- 
steuern. Halten wir die Taste länger gedrückt, dann wiederholt 
sich das Weiterrücken des Cursors automatisch (Auto-Repeat). 
Wir können so eine auf dem Bildschirm stehende Eingabe wieder- 
holt zur Ausführung bringen oder korrigieren. Wir geben ein: 


PRINT 100+3 /Enter/ (=Eingabe) 
103 (=Ausgabe) 
Ready (=Ausgabe) 


Angenommen, wir haben uns vertippt und wünschen 900 statt 100. 
Mit / A / bewegen wir den Cursor nach oben bis hin zum P von 
PRINT. Dann bewegen wir den Cursor mit / —>/ nach rechts bis 
auf die "1". Abschließend tippen wir 9 /Enter/. Auf dem Bild- 
Bildschirm steht nun: 


PRINT 900+3 (=korrigierte Eingabe) 
903 (=Ausgabe) 


3. Korrigieren der letzten Zeichen mit Taste /Backspace/: 

Wir tippen 100+3 ein und drücken dann einmal kurz /Backspace/: 
PRINT 100+3 /BACKSPACE/ bzw. /<—/ 

Die zuletzt eingetippte 3 wird gelöscht; wir konnen 4 /Enter/ 

eingeben und erhalten dann 104 als Ergebnis der Korrektur. 

Auf diese Weise kann man mit /Backspace/ auch die letzten 2, 

3, 4, ... Zeichen korrigieren. 


4. Löschen von Zeichen inmitten einer Zeile mit /Del/: 
Wir geben 
PRINT 1234556789 

ein. Der Cursor steht hinter der 9 . Wir wollen die versehent- 
lich doppelt getippte 5 löschen. Mittels /<— / bewegen wir 
wir den Cursor nach links auf die zweite 5 , um dann diese 5 
durch einmaliges Drücken von /DEL/ zu löschen. Die Zeichen 
chen 6789 werden dadurch um eine Stelle nach links verscho- 
ben. Mit /Enter/ schließen wir die Eingabe ab. Mehrere Zeichen 
löscht man entsprechend durch mehrmaliges Drücken von /Del/. 
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2.1.3 Text im direkten Dialog 


Bislang haben wir nur Zahlen -bestehend aus Ziffern, ggf. mit 
Dezimalpunkt und Vorzeichen- eingegeben. Zahlen werden oft als 
numerische Dat en bezeichnet. 

Neben den numerischen Daten kann der PC natürlich auch Daten 
wie "BASIC-Wegweiser", "LENA IST HIER." und "Rabatt 3%" verar- 
beiten. Sie heißen Tex tdat en . Der PC erkennt Text- 
daten daran, daß sie stets zwischen Gänsefüßchen " " stehen. 
Welche Buchstaben, Ziffern und/oder Sonderzeichen zwischen " " 
stehen, spielt keine Rolle. 


? "WEGWEISER" (=Eingabe: Text mit 9 Zeichen) 

WEGWEISER (=Ausgabe ohne die Gänsefüßchen) 

Ok 

ra WEGWEISER" (=Eingabe: Text mit 15 Zeichen) 
WEGWEISER (=Ausgabe: zuerst die 6 Blancs) 

Ok 

? "WEGWEISER" (=Eingabe: Text mit 9 Zeichen) 

WEGWEISER (=Ausgabe: Nur Blancs in " '" zählen) 

ok 

? "BASIC"+"-WEGWEISER" (=Eingabe: "+' verknüpft zwei Texte) 

BASIC-WEGWEISER (=Ausgabe: Ein Text mit 15 Zeichen) 

Ok 

2 300" (=Eingabe: "+" verknüpft zwei Texte) 

3100 (=Ausgabe: Text mit 4 Zeichen) 

ok 

2 "3" / "100" (=Eingabe: Division / unzulässig) 

?TYPE MISMATCH ERROR (=Ausgabe: Fehlermeldung) 

ok 

? LEFT$("WEGWEISER",3) (=Eingabe: Links 3 Zeichen nehmen) 

WEG (=Ausgabe: Text mit 3 Zeichen) 


Zum wiedergegebenen direkten Dialog einige Anmerkungen: 

- Leerstellen (Blanks, Space) gelten auch als Zeichen und wer- 
den nur dann berücksichtigt, wenn sie zwischen den Gänsefüß- 
chen stehen. 

- "100" ist ein Textdatum, kein numerisches Datum. Der Versuch 
der Anwendung der Division mit "/" weist der PC deshalb mit 
der Fehlermeldung "Falscher Datentyp' ab. 

- "+" bei Text verknüpft, während "+" bei numerischen Daten 
addiert. 

- LEFT$ ist eine spezielle Anweisung zur Textverarbeitung. 


Textdaten werden häufig als Zeichendaten, Zeichenkettendaten 
oder St rin g s bezeichnet. 

Jeder Personalcomputer eignet sich zur Verarbeitung von Text- 
daten und numerischen Daten gleichermaßen. Wir können ihn als 
Rechner verwenden und Briefe schreiben lassen. 
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2.2 Arbeiten im indirekten Modus: Unser erstes Programm 85 


Als erstes eigenes Programm wollen wir ein Programm mit dem 
Namen VERBRAU erstellen, d.h. über Tastatur eintippen, testen 
und dann auf Diskette abspeichern. 

Das Programm VERBRAU löst das folgende Problem: 


"Benzinverbrauch beim Pkw: Ermittlung des Verbrauchs 
in Liter/100 km für eine Tankfüllung von 60 Litern" 


Wie bei allen größeren Vorhaben gehen wir auch bei der Pro- 
grammentwicklung schrittweise vor. Beginnen wir mit Schritt 1. 


2.2.1 Schritt 1: System mit BASIC starten 


Diesen Schritt haben wir bereits im Abschnitt 2.1 ausgeführt: 
Nach dem Anschalten des CPC wird das eingebaute ROM-BASIC ak- 
tiviert. Durch Eingabe des Befehls 

MODE 2 /Enter/ (=Eingabe von uns) 
wird der Bildschirm auf eine Zeilenbreite von 80 Zeichen um- 
geschaltet. Unter dem Ready-Zeichen steht der Cursor. An der 
durch den Cursor markierten Stelle werden die Zeichen stehen, 
die wir über Tastatur eintippen. Machen wir einen Versuch und 
geben wir das Wort PROGRAMM ein. Nichts passiert, da am Ende 
der Eingabe(-zeile) die 'Enter'-Taste gedrückt werden muß. Tun 
wir dies (von jetzt an steht /Enter/ für ""Enter'-Taste einmal 
kurz drücken"), dann zeigt sich folgender Dialog: 


PROGRAMM /Enter/ (=Eingabe von uns) 
Syntax error (=Ausgabe des Computers) 
Ready (=Ausgabe des Computers) 


Die Sprache BASIC antwortet mit "Syntax error" als Fehlermel- 
dung, da sie mit unserem Eingabewort PROGRAMM nichts anfangen 
kann. Danach zeigt BASIC wieder das Ready-Zeichen und darunter 
blinkt der Cursor. 


2.2.2 Schritt 2: Programm Zeile für Zeile eintippen 


wir wollen das (später in Abschnitt 3.1.1.1 verwendete) Pro- 
gramm namens VERBRAU eintippen: Zeile für Zeile, wobei am Ende 
jeder Zeile die /Enter/-Taste gedrückt wird. Wir tippen ein: 


10 LET T= 60 /Enter/ 


20 PRINT "Eingabe: Gefahrene km" /Enter/ 
30 INPUT K /Enter/ 


Dann tippen wir ohne Zeilenummer den LIST-Befehl ein: 


LIST /Enter/ 
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Der PC LISTet die drei eingegebenen Programmzeilen 10-30 auf, 
wie er sie im Hauptspeicher abgespeichert hat. Der LIST-Befehl 
dient uns so zur Kontrolle. Sind die drei Programmanweisungen 
wie gewünscht abgespeichert? Falls nein: bitte nochmals tippen 
10 LETT = ... usw. Falls ja: Wir tippen die anderen vier Pro- 
grammzeilen 40-70 ein (das /Enter/ lassen wir von nun an weg): 


40 LETD= 1100 *T/K /Enter/ 

50 PRINT "Ausgabe: Liter/100 km" /Enter/ 
60 PRINT D /Enter/ 

70 END /Enter/ 


Wenn wir nun erneut den Befehl 
LIST /Enter/ 
eintippen, muß die komplette Anweisungsfolge von Zeile 10 bis 


Zeile 70 und das Ready-Zeichen am Bildschirm erscheinen. Die- 
se Anweisungsfolge nennt man Listing oder Codierung 


LIST 

10 LET T = 60 

20 PRINT "Eingabe: Gefahrene km" 
30 INPUT K 


49 LETD=100 *T/K 

50 PRINT "Ausgabe: Liter/100 km! 
60 PRINT D 

70 END 


2.2.3 Schritt 3: Programm ausführen lassen 


Zur Ausführung des nun im Hauptspeicher RAM befindlichen Pro- 
gramms tippen wir den Befehl 


RUN /Enter/ (=Eingabe von uns) 


ein. Das Programm wird jetzt so ausgeführt, wie es dem Compu- 
ter durch die 7 Anweisungen in den Zeilen 10-70 befohlen wird. 
Tippen wir z.B. 600 km ein, so zeigt sich uns folgender Dialog 
(auch Aus führung ,„ Dialogprotokoll oder Programmlauf 
genannt): 


RUN (=Eingabe von uns) 
Eingabe: Gefahrene km (=Ausgabe des Computers) 
? 600 (=Eingabe von uns) 
Ausgabe: Liter/100 km (=Ausgabe des Computers) 
10 (=Ausgabe des Computers) 
Ready (=Ausgabe des Computers) 


Die Gegenüberstellung von Codierung und Ausführung zu unserem 
Programm zeigt, daß die Zeilennummern 10 - 70, die Anweisungs- 
worte LET (berechne), PRINT (gib aus), INPUT (gib ein) bzw. 
END, die Gänsefüßchen und die gesamten Berechnungen durch LET 
im Ausführungsprotokoll nicht am Bildschirm erscheinen. 
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Wir können das im RAM gespeicherte Programm jetzt wiederholt 
mittels RUN /Enter/ laufen lassen: mit jeweils anderen Zahlen, 
aber stets in der gleichen Anweisungsfolge Zeile 10,20,30, ... 
Ein Hinweis: Der exakte Programmablauf wird in Abschnitt 3.1.1 
ausführlich erklärt. 


Im RAM befinden sich e i n Programm mit dem Namen VERBRAU und 
die drei Variablen namens T, K und D. Das Programm stellen wir 
uns als große Schachtel mit einer Anweisungsfolge als Inhalt 
bzw. Wert (hier 7 Anweisungen) vor und die Variablen als drei 
kleine Schachteln mit Zahlen als Inhalt. 

Die Abbildung veranschaulicht die drei Speicherzustände, in 
die wir den Hauptspeicher RAM nach und nach versetzt haben. 
Dabei ist festzuhalten: im RAM können wir jeweils nur ein 
Programm speichern, aber mehrere Variablen. 


RAM nach Eintippen RAM nach Eintippen RAM nach Ausführung 
des NEW-Befehls: von VERBRAU: von VERBRAU: 


Leer: Speicher- VERBRAU 
plätze weder mit 
Anweisungen (Pro- 
gramm) noch mit 

Daten (Variablen) 


belegt. 


Weder (Anwender)- Ein Programm Ein Programm und 
Programm noch Daten drei Variablen 


Speicherbelegung des Hauptspeichers (RAM) zu drei Zeitpunkten 


Über die PRINT-Anweisung können wir uns die derzeitigen Werte 
der Variablen im direkten Dialog zeigen lassen: 


PRINT T /Enter/ (=Eingabe von uns) 
60 (=Ausgabe des Computers) 
Ready (=Ausgabe des Computers) 
PRINT K,D /Enter/ (=Eingabe von uns) 
600 10 (=Ausgabe des Computers) 
Ready (=Ausgabe des Computers) 


In T ist 60 gespeichert und in K bzw. in D genau 600 bzw. 10. 
Dabei geben wir PRINT ohne vorhergehende Zeilennummern ein, um 
uns die Variablenwerte direkt PRINTen bzw. ausgeben zu lassen. 
Da die PRINT-Anweisung nun direkt ausgeführt wird, spricht man 
vom direkten Modus als Betriebsart. Geben wir 
am Anfang einer Zeile eine Zeilennummer ein, dann wählen 
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wir damit automatisch den indirekten Modus: dabei 
werden die Anweisungen hinter den Zeilennummern gespeichert 
und später nach dem Eintippen von RUN gemäß dieser Numerierung 
zur Ausführung gebracht. 


MODUS 
DIREKT INDIREKT 

(direkte Betriebsart, (indirekte Betriebsart, 

Direkter Dialog) Programmierter Dialog) 
Eingabe von Anweisungen Eingabe von Anweisungen mit 
direkt. vorangestellten Zeilennummern. 
Ausführung sofort. Ausführung erst später 

mittels RUN. 

Beispiel: PRINT D Beispiel: 60 PRINT D 


Zwei BASIC-Betriebsarten: Direkter und indirekter Modus 


Ein Tip: Geben wir aus Versehen z.B. 

15 M J/Enter/ 
ein, speichert BASIC die 15 als Zeilennummer und das M als An- 
weisung ab. Bei der Ausführung erhalten wir dann eine Fehler- 
meldung. Durch Eingabe von 

15 /Enter/ 
können wir die fehlerhafte Zeile aus dem Programmtext löschen. 


2.2.4 Schritt 4: Programm vom RAM auf Diskette speichern 


Bei Abschalten des Stromes (bitte nicht tun!) wäre unser Pro- 
gramm verloren. Wir speichern deshalb eine Kopie des Programms 
auf Diskette ab. Dazu tippen wir ein: 


SAVE "VERBRAU" /Enter/ (=Eingabe von uns) 
Failed to load (=Ausgabe des Computers) 
Ready (=Ausgabe des Computers) 


Die Fehlermeldung tritt auf, wenn keine Diskette eingelegt ist 
oder die Klappe nicht geschlossen ist. Wir legen z.B. eine der 
mitgelieferten Demonstrationsdisketten ein und wiederholen den 
SAVE-Befehl. 

Nach Erlöschen der Hinweis-Lampe am Diskettenlaufwerk ist eine 
Kopie des im Internspeicher RAM befindlichen Programms unter 
dem Namen VERBRAU auf der Diskette als Externspeicher dau- 
erhaft gespeichert. Schalten wir nun den Strom ab, so geht nur 
das im RAM befindliche Programmoriginal verloren, nicht jedoch 
die Kopie auf der Diskette (die ja geSAVEd bzw. gerettet ist). 
Achtung: Wenn wir anstelle von SAVE "VERBRAU" /Enter/ einfach 
nur SAVE /Enter/ tippen, dann führt dies zu keinem Erfolg, da 
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der Computer speichern will, aber den Programmnamen und des- 
wegen auch den Speicherort auf der Diskette nicht kennt. 


Durch Eintippen des Befehls 


CAT / Enter/ (=Eingabe von uns) 
Brenn Vone ee (=Ausgabe: siehe Dialogprotokoll) 
Ready (=Ausgabe des Computers) 


erhalten wir das Inhaltsverzeichnis der Diskette mit den Namen 
aller zur Zeit darauf gespeicherten Programme. Darunter ent- 
decken wir auch den Namen VERBRAU.BAS (BAS steht für BASIC 
und zeigt, daß das Programm VERBRAU ein BASIC-Programm ist). 


2.2.5 Schritt 5: Programm von Diskette in den RAM laden 


Angenommen, wir wollen morgen wieder mit dem Programm VERBRAU 
arbeiten. Dazu tippen wir nach dem Starten des Systems dann 
den Ladebefehl 


LOAD "VERBRAU" /Enter/ (=Eingabe von uns) 
Ready (=Ausgabe des Computers) 


ein. Dieser Befehl sucht Programm VERBRAU auf der Diskette 
und lädt eine Kopie davon in den RAM. Befindet sich aber noch 
ein anderes Programm im RAM, wird dieses überschrieben und 
somit zerstört. Ohne vorheriges SAVE wäre dieses Programm un- 
wiederbringlich verloren - genau dies ist so "'gefährlich' beim 
LOAD-Befehl. 


Entsprechendes gilt für den SAVE-Befehl als dem Gegenstück des 
LOAD-Befehls: 
Ändern wir z.B. das Programm VERBRAU ab durch Eintippen von 


15 PRINT "Durchschnittsverbrauch ermitteln", 


so können wir diese verbesserte Programmversion durch den Be- 
fehl SAVE "VERBRAU" ‚Enter/ neu auf Diskette retten. Was tut 
der SAVE-Befehl jetzt, da er auf Diskette bereits ein Programm 
namens VERBRAU vorfindet? Er überschreibt es, d.h. er zer- 
stört die 'alte' Programmversion und speichert das "'neue' VER- 
BRAU dafür ab. 


2.2.6 Eigentlich Schritt 0: Diskette formatieren 


Wir sind bislang in diesen fünf Schritten vorgegangen: 


Schritt 0: Anwenderdiskette formatieren 
Schritt 1: Schneider CPC mit BASIC starten 
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Schritt 2: Programm Zeile für Zeile eintippen 
Schritt 3: Programm ausführen lassen 

Schritt 4: Programm vom RAM auf Diskette speichern 
Schritt 5: Programm von Diskette in den RAM laden. 


Diskette als Externer Speicher 


SYSTPEMDISKETTE ANWENDERDISKETTE, NUTZDISKETTE 
Inhalt: Betriebssystem Inhalt: Programme zur Lösung 
CP/M mit Dienstprogrammen unserer eigenen Probleme 
(z.B. Befehl PIP) (u.a. auch Programm VERBRAU) 


... vom Hersteller ... von uns leer gekauft und 
geliefert. dann formatiert. 


Systemdiskette und Anwenderdisketten 


Anwenderdisketten können wir kaufen - leer, unbespielt und für 
PCs unterschiedlicher Fabrikate einsetzbar. Bevor wir auf die- 
se Disketten unsere Programme speichern können, müssen wir sie 
in die F or m bringen (Einteilung der Diskettenoberfläche in 
kreisrunde Spuren und Sektoren als Spurabschnitte), die genau 
unserem PC und unserem Betriebssystem entspricht. Das 'in Form 
bringen der Diskette' nennt mn Formatieren 


Zum Formatieren dient der FORMAT-Befehl. Dieser Befehl ist 
Bestandteil des Betriebssystems CP/M. Wir gehen auf ihn in 
Abschnitt 2.4 ein. 
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Die folgende Kurzbeschreibung orientiert sich an Beispielen. 
Dies gilt für die Beschreibung der Daten wie der Anweisungen, 
die die Programmiersprache BASIC dem Anwender bereitstellt. 
Wir beziehen uns dabei auf die allgemeine Darstellung der Da- 
tenstrukturen und Programmstrukturen von Abschnitt 1.3. 


Programmiersprache Schneider BASIC 


... stellt Anweisungen ... unterscheidet Daten 
bzw. Befehle bereit: bzw. Datentypen: 
Anweisungen = wie Daten = was 

ist zu verarbeiten wird verarbeitet 


Anweisungen und Daten als aktive und passive Elemente in BASIC 


2.3.1 Daten in BASIC 


2.3.1.1 Konstanten mit Zahlen und Text 


BASIC kennt die Datentypen INTEGER (Ganzzahl), REAL (Dezimal- 
zahl) und STRING (Zeichenkette bzw. Text). Entsprechend gibt 
es auch drei Typen von Konstanten, also drei Typen 
von Daten, die während des Programmlaufes unverändert bleiben: 


- INTEGER-Konstante Ganze Zahlen z.B. 25000 
- REAL-Konstante Dezimalzahlen 2Be. 7.1258 
- STRING-Konstante Texte z.B. "Schneider" 
Datentyp: Kennzeichen: Speicher- Beispiele: 
Pla&2% 
INTEGER -32768 bis 32767 mind. 321, -10000, -1 
5 Bytes 
REAL- Ausrufungszeichen ! mind. SI9132l ZZ HE 
einfach genau oder E (Exponent) TnByites, 73% 1682 2321058 
oder Punkt mit 5543 1:52 
max. 7 Stellen 0.00002 -0.097 
STRING Max. 255 Zeichen; bis 256 "DM-BETRAG" "*" 
zwischen " " Bytes "12" "Ergebnis" 


Numerische Konstante (INTEGER,REAL) und Textkonstante (STRING) 


Neben diesen Dezimal-Konstanten kennt BASIC hexadezimale Kon- 
stante und binäre Konstante. 


94 2 Bedienung des Schneider CPC unter AMSDOS, CP/M und MS-DOS 


Hexade z ima 1 e Konstante werden durch das Prefix &H 
gekennzeichnet und bestehen aus den Zeichen 0 - 9 sowie A-F. 
Zwei Beispiele: &HE ist gleich HEX E bzw. gleich DEZIMAL 14. 
&HFFFF ist gleich HEX FFFF bzw. gleich DEZIMAL 65535 . 


Binä r e Konstante erkennt man am Prefix &X und enthalten 
die Binärzeichen O0 und 1. Beispiel: &X1101011. 


2.3.1.2 Variablen für einfache Datentypen 


Jede Variable hat einen Namen, einen Datentyp und einen Wert, 
der sich ändern kann und somit variabel ist (Abschnitt 1.3.4). 
Wie für die Konstanten unterscheiden BASIC auch für die Varia- 
blen die drei Datentypen INTEGER, REAL und STRING (auch als 
Text bezeichnet). 


Datentyp: Typzeichen: Beispiele für Variablennamen: 
INTEGER % I$% ZINSTEILER® A33% SATZ.NR% 
REAL-einfach genau . DMISZEISTING IT ZRENIZ EB185SAN E38 
STRING $ NAME$ A.1$ BEZEICHNUNG$ FILE$ 


Numerische Variablen (INTEGER,REAL) und Textvariablen (STRING) 


‚ Geben wird beim Schneider kein Typzeichen %, # bzw. $ am Ende 
Variablennamens an, dann nimmt BASIC automatisch REAL-einfach 
als Datentyp an. Oben wurde die Variable A33 deshalb als A33! 
eingeordnet. 


Außer dem Typzeichen können wir unsere Variablennamen beliebig 
wählen, vorausgesetzt, sie unterscheiden sich in den ersten 40 
Zeichen. Dabei muß der Name natürlich mit einem Buchstaben be- 
ginnen, auf den weitere Buchstaben oder Ziffern folgen können. 
Den Punkt können wir zur Abgrenzung von Wörtern im Namen ver- 
wenden. In einem Zinsprogramm bieten sich z.B. die vVariablen- 
namen ZINS.SATZ, ZINS.TEILER, ZINS.SUMME und ZINS.ABZUEGE an. 


BASIC verfügt über reserviert e Wörter wie LIST, FN, 
GOSUB, COMMON oder PRINT. In Abschnitt 2.3.3 sind diese Worte 
für Anweisungen usw. wiedergegeben. Verwenden wir solche Worte 
als Variablennamen, so führt dies zwangsläufig zu Fehlern. Wo- 
her soll BASIC auch wissen, wann z.B. LIST als Variablenname 
zu gelten hat und wann als Befehl zum Auflisten des Programms? 
Gleichwohl: als Bestandteil eines Variablennamens dürfen wir 
die reservierten Worte verwenden. Oben wurde deshalb LISTING! 
als gültiger Variablenname angeführt, obwohl er LIST enthält. 
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Das Einrichten von Variablen heißt Vereinbarung 
(vgl. Abschnitt 1.3.4.2). In BASIC sind hierzu zwei Arten zu 
unterscheiden: die implizite sowie die explizite Vereinba- 
rung. 

Beiderimpliziten Vereinbarung teilen 
wir durch Angabe des Typzeichens den Datentyp mit. So soll M$ 
STRINGs aufnehmen können (Typzeichen $), M! aber REAL-Zahlen 
(Typzeichen !). 

Beider expliziten Vereinbarung kommen 
wir ohne die Typzeichen %, ! bzw. $ aus, da zu Beginn eines 
Programmes ausdrücklich (explizit) durch die drei Anweisungen 
DEFINT, DEFREAL oder aber DEFSTR vereinbart wird, welche Da- 
tentypen nun welchen Variablen zugrundegelegt werden. 


100 DEFINT A, NR Die Variablen A und NR werden als 
INTEGER-Variablen vereinbart. 


110 DEFREAL M, X-Z Variablen, die mit M beginnen oder mit 
X bis Z, sind vom Typ REAL-einfach genau. 


130 DEFSTR T Variablen, deren Namen mit T beginnen, 
sind vom Typ STRING. 


Explizite Vereinbarung mit DEFINT, DEFREAL und DEFSTR 


Beide Arten der Vereinbarung können in ein- und demselben Pro- 
gramm angewendet werden. 


2.3.1.3 Variablen für strukturierte Datentypen 


Bei den Variablen für einfache Datentypen wird jeweils nur 
ei n Datum als Variable gespeichert, bei den Variablen für 
strukturierte Datentypen bzw. Datenstrukturen 
sind es mehrere Daten (vgl. Abschnitt 1.3.2). 

In BASIC stehen uns als Datenstrukturen ARRAYs bzw. Tabellen 
sowie FILEs bzw. Dateien zur Verfügung. 


Arrays (oft auch Tabellen, Felder, Bereiche, Listen oder 
Vektoren/Matrizen genannt) umfassen mehrere Elemente vom glei- 
chen Datentyp. Entsprechend können INTEGER-ARRAYS, REAL-ARRAYS 
und STRING-ARRAYs vereinbart werden. 

In BASIC sind dabei bis zu 255 Dimensionen (Ausdehnungen) er- 
laubt. Zur Vereinbarung der Dimension dient die DIM-Anweisung. 
Arrays sollten in jedem Falle explizit durch die DIM-Anweisung 
vereinbart werden (bis zu 10 Elementen auch implizit möglich). 
In Abschnitt 3.7 wenden wir uns den Arrays ausführlich zu. 
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100 DIM L%(30) 1-dimensionaler INTEGER-ARRAY zur Auf- 
nahme von 31 Ganzzahlen an den Stellen 
Ole 302, Namerdesr Arrays 13% 


100 DIM B$(2,3,4) 3-dimensionaler STRING-ARRAY mit 3%4%*5 
=60 Elementen zu je 255 Zeichen max. 


100 DIM M!(A®) ı-dimensionaler REAL-ARRAY mit A% Ele- 
menten; Index -hier A%- stets INTEGER. 


Vereinbarungen von INTEGER-AKRAY, REAL-ARRAY und STRING-ARRAY 


2.3.2 Operatoren für Rechnen, Logik und Vergleich 


Die BASIC-Anweisung 

100 PRINT 444*2+3000 /Enter/ 
enthält hinter dem Anweisungswort PRINT einen Ausdruck mit den 
beiden Operatoren 1 '*" (mal) und "+" (plus). In der 
Programmiersprache BASIC sind neben solchen "Rechenoperatoren' 
auch '"Vergleichsoperatoren' und "logische Operatoren' möglich. 


Operator- Operator Bedeutung: Rangfolge der 
Typ: in BASIC: der Ausführung: 
hoch, 
N) Klammer zuerst 


Potenzieren: 2 4=16 


RECHEN- - Negative Zahl 
Operatoren ll Multiplizieren, Dividieren 
\ Division (Quotient): 9\6=1 
MOD Division (Rest): 9 MOD 6=3 
+ - Addieren, Subtrahieren 


= gleich: 6=8 ergibt O0 (UNWAHR) 


<> ungleich: 6<>8 ergibt -1 (WAHR) 
VERGLEICHS- > größer als 
Operatoren < kleiner als 


= größer oder gleich 
= kleiner oder gleich 


AND UND: 1 AND 2 ergibt 0 (UNWAHR) 
LOGISCHE OR ODER 
Operatoren XOR ausschl. ODER niedrig, 
NOT NICHT zuletzt 


Operatoren in BASIC in der Rangfolge ihrer Ausführung 
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Stehen in einem Ausdruck mehrere Operatoren, dann werden diese 
entsprechend der in der Abbildung wiedergegebenen Rangfolge 
ausgeführt: In Klammern gesetzte Operationen werden zuerst zur 
Ausführung gebracht (höchster Rang), die logische Verneinung 
dagegen zuletzt (niedrigster Rang). Im obigen Beispiel der An- 
weisung 100 PRINT 444*2+3000 wird zuerst mit "*'" verdoppelt, 
um dann mit "+" zur Zahl 888 die Zahl 3000 zu addieren (Opera- 
tor '"'*" mit höherem Rang als Operator "+"). 

Auf die Rechenoperatoren sind wir bereits in Abschnitt 2.2.1 
eingegangen. 


Ein- und derselbe Operator kann verschiedene Bedeutungen haben. 
So kann "+" addieren (3+4 ergibt 7) oder verknüpfen ("LE"+"NA" 
ergibt "LENA"). 

"=" kann vergleichen (20 IF X=3 GOTO 90: ist 'X gleich 3'?) 
oder einer Variablen einen Wert zuweisen (40 LET X=3: weise X 
der Wert 3 zu). 

Auf die Operatoren und deren Bedeutungen gehen wir ausführlich 
in Abschnitt 3 anhand der Programmbeispiele ein. 
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2.3.3 Schlüsselwörter und deren Bedeutung 


Die folgenden Wörter sind für Anweisungen, Funktionen reser- 
viert und dürfen nicht (alleine) als Variablennamen verwendet 
werden. 

Beispiel: Die Zuweisung LET ABS=2 wird abgewiesen (Variablen- 
name ABS nicht erlaubt); die Zuweisung LET SABS=2 dagegen ist 
möglich (Variablenname SABS erlaubt). 


ABS() Absolutwert 

AFTER Unterprogramm nach einer Zeit aufrufen 
ASC() ASCII-Codenummer angeben 

ATN() Wert einer Zahl im Bogenmaß angeben 
AUTO Automatisch Programmzeilen durchnumerieren 
BIN$() zahl in binärer Form darstellen 

BORDER Bildschirmrand einfärben 

CALL Unterprogramm (Maschinensprache) aufrufen 
CAT Directory (Katalog) der Diskette anzeigen 
CHAIN Programme verketten 

CHR$() Zeichen für eine ASCII-Codezahl angeben 
CINT Ganze Zahl runden 

CLEAR Alle Variablen auf Null setzen 

CLG Grafikbildschirm einfärben 

CLOSEIN Eingabedatei (Lesedatei) schließen 
CLOSEOUT Ausgabedatei (Schreibdatei) schließen 
CLS Bildschirm löschen 

CONT Abgebrochenen Ablauf fortsetzen 

coSs() Cosinus berechnen 

CREAL zahl in Dezimalzahl umwandeln 

DATA Programminterne Datei 

DEF FN Funktion selbst definieren 

DEFINT Variablennamen vom INTeger-Typ 

DEFREAL Variablennamen vom REAL-Typ 

DEFSTR Variablennamen vom STRing-Typ 

DEG Winkelgradmaß einschalten 

DELETE Programmzeilen löschen 

DI Unterbrechungen verhindern bis Befehl EI 
DIM Arrays dimensionieren 

DRAW Linie zur Absolutposition zeichnen 
DRAWR Linie zur Relativposition zeichnen 

EDIT Programmzeile zum Editieren freigeben 
EI Unterbrechungen nach DI wieder zulassen 
END Programmende 

ENT Tonhöhe verändern 

ENV Ton in seiner Lautstärke verändern 

EOF Ende der Datei 

ERASE Variablen löschen 

ERL, ERR Fehlernummer und -zeile angeben 

ERROR Fehlerbehandlung ausführen 

EVERY Eingebaute Uhr zur Steuerung verwenden 


EXP() Potenzierung mit Zahl e 
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FIX 
FOR-NEXT 
FRE() 


GOSUB-RETURN 
GOTO 


HEX$() 
HIMEM 


IF-THEN-ELSE 
INK 

INKEY() 
INKEY$ 

INP() 

INPUT 
INSTR() 
INT() 

JOY() 


KEY 
KEY DEF 


LEFT$() 
LEN() 

LET 

LINE INPUT 
LIST 

LOAD 
LOCATE 
LOG() 
LOG10 
LOWER$() 


MAX() 
MEMORY 
MERGE 
MID$() 
MIN() 
MODE 
MOVE 
MOVER 


NEW 
NEXT 


ON-GOSUB 
ON-GOTO 


ON BREAK GOSUB 


ON BREAK STOP 
ON ERROR GOTO 
ON SQ() GOSUB 
OPENIN 
OPENOUT 
ORIGIN 

OUT 


Ganze Zahl durch Abschneiden bilden 
zählerschleife steuern 
Freien Speicherplatz angeben 


Unterprogramm aufrufen 


Unbedingtes Verzweigen zu einer Zeilennummer 


In Hexadezimalschreibung verwandeln 
Höchste belegte Speicheradresse nennen 


Bedingte Anweisung 

Farben für Farbstifte zuordnen 

Tastatur abfragen 

Tastatur nach Zeicheneingabe abfragen 
Eingabeschnittstelle (I/O-Post) abfragen 
Eingabeanweisung 

Zeichen(-folge) in einem String suchen 
Ganzzahligen Wert bilden 

Joystick abfragen 


Funktionstaste belegen 
Wert einer Taste verändern 


Teilstring links 

Länge eines Strings angeben 
Wertzuweisung 

Eingabe einer Zeile 

BASIC-Codierung auflisten 

Programm von Externspeicher in RAM laden 
Cursor am Bildschirm positionieren 
Natürlichen Logarithmus ermitteln 
10er-Logarithmus 

In Kleinschreibung umwandeln 


Größten Zahlenwert angeben 

Obergrenze des BASIC-Speichers festlegen 
Programm einmischen 

Mittlerer Teilstring 

Kleinsten Zahlenwert angeben 
Bildschirmmodus 0,1 oder 2 festlegen 
Grafik-Cursor bewegen 

Grafik-Cursor relativ bewegen 


Programm und Variablen im RAM löschen 
Rückführung bei Zählerschleife mit FOR 


Bedingter Sprung in Unterprogramm 
Bedingter Sprung zu Zeilennumnmer 
Unterprogrammaufruf für Esc-Tastendruck 
Programmstop für Esc-Tastendruck 
Fehlerbehandlung beginnen 
Unterprogrammaufruf für Tonausgabe 
Eingabedatei öffnen 

Ausgabedatei öffnen 

Startpunkt für Grafik-Cursor setzen 
Ausgabesignal an Interface senden 
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PAPER 
PEEK() 
PEN 
PI 
PLOT 
PLOTR 
POKE 
POS() 
PRINT 


RAD 
RANDOMIZE 
READ 
RELEASE 
REM 
REMAIN 
RENUM 
RESTORE 
RESUME 
RETURN 
RIGHT$ 
RND() 
ROUND() 
RUN 


SAVE 
SGN() 
SIN() 
SOUND 
SPACE$() 
SPEED 
so) 
SOR() 
STOP 
STR$() 
STRING$() 
SYMBOL 


TAG 

TAGOFF 
TAN() 
TEST() 
TESTR() 
TIME 
TRON/TROFF 


UNT() 
UPPER$() 


VAL() 
VPOS() 


WAIT 
WHILE-WEND 


Farbstift für Bildschirmbereich festlegen 
Wert einer Speicheradresse angeben 
Zuordnung von Farb- zu Schreibstift 

zahl pi 

Einzelpunkt für Grafik zeichnen 

Punkt relativ zeichnen 

Zahl in Speicheradresse speichern 
Position von E/A-Gerät angeben 
Ausgabeanweisung 


Bogenmaßausgabe anschalten 
Anfangswert für Zufallszahlen setzen 
Daten aus DATA-Datei in Variablen einlesen 
Wartezustand von Tonkanal aufheben 
Kommentarzeile im Programmlisting 
Restzeit des Weckers angeben 
Programmzeilen neu numerieren 
Lesezeiger bei DATA-Datei zurücksetzen 
Fehlerbehandlung beenden 
Unterprogrammablauf nach GOSUB beenden 
Rechter Teilstring 

Zufallszahl auswählen 

Wert runden 

Programm ausführen 


Programm von RAM auf Externspeicher ablegen 
Vorzeichen einer Zahle angeben 
Sinusfunktion 

Einen Ton erzeugen 

Leerzeichen angeben 

Zeitdauer setzen (INK, KEY, WRITE) 
Status der Tonwarteschlange angeben 
Wurzelfunktion 

Programmausführung unterbrechen 

Zahl in String umwandeln 

String einer bestimmten Länge erzeugen 
Ein Zeichen mit einem Wert belegen 


Grafik-Cursor über PRINT ansteuern 
PRINT bezüglich Grafik-Cursor abstellen 
Tangensfunktion 

Farbstiftnummer nennen 

Farbstiftnummer relativ nennen 

Zeit in 1/300 Sekunden nennen 
Trace-Lauf eines Programmes durchführen 


Wert für 16-Bit-Adresse angeben 
String in Großschreibung umwandeln 


Zeichen in numerischen Wert verwandeln 
Vertikalposition des Cursors angeben 


Eingabe über Interface abwarten 
Abweisende Schleife steuern 
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2.4.1 CP/M-Programme als Befehle 


Das Betriebssystem CP/M (Control Program for Microcomputers) 
ist äußerst komplex und wird laufend um neue Befehle bzw. 
Programme erweitert. Im folgenden werden die Grundzüge dieses 
Betriebssystems in fünf Punkten erläutert. 


1. CP/M als Sammlung von Befehlen bzw. Programmen 


Ein Betriebssystem soll den benutzerfreundlichen BETRIEB ei- 
nes ComputerSYSTEMs gewährleisten. CP/M als Betriebssystem 
von Schneider-Computern umfaßt zahlreiche Befehle (COMmands), 
die auf der Systemdiskette gespeichert sind. Es gibt Befehle, 
die einen Dialog unterhalten (z.B. DISCCOPY), und solche, die 
sich unmittelbar nach ihrem Aufruf wieder verabschieden (z.B. 
DIR). CP/M-Befehle erkennt man am Dateityp COM. Das folgende 
Inhaltsverzeichnis (Directory) einer Systemdiskette zeigt 
mehrere solcher COM-Dateien: 


MOVCPM COM : XSUB COM : ED COM : ASM COM 
A: LOAD COM : DDT COM : STAT COM : DUMP COM 
A: DUMP ASM : AMSDOS COM : FILECOPY COM : DU DOC 
A: SPOOL COM : SYSGEN COM : BOOTGEN COM : SETUP COM 
A: CHKDISC COM : FORMAT COM : DRUCKER BAS : VCOPY COM 
A: PATCH COM : CSAVE COM : CLOAD COM : $0SC SYS 
A: RAMDISK COM : ERASE BAS : PIP COM : SUBMIT COM 
A: COPYDISC COM : DISCCOPY COM : SID COM : UNERASE COM 
A: D COM : BOOT COM : RESET COM : DEUTSCH COM 
A: 60 COM : SWEEP COM : SWEEP DOC : DU COM 


2. Dateibezeichnungen unter CP/M 


Eine Dateibezeichnung besteht aus einer Laufwerksangabe, dem 
Namen und dem Dateityp. Der Name darf bis zu 8 Zeichen und 
der Dateityp bis zu 3 Zeichen lang sein. 


A:FORMAT.COM 


Laufwerksangabe A (oder B bzw. C). 
",'" als Trennzeichen 

Dateiname FORMAT 

"." als Trennzeichen 

Dateityp COM 


Dateibezeichnung mit drei Teilen 


Die in der obigen Systemdiskette genannten Dateibezeichnungen 
haben folgende Bedeutungen: 


- COM CoMmand File, d.h. ausführbares Maschinenprogramn. 
- ASM ASseMbler-Programm ( maschinenorientiert). 

- BAS BASIC-Programm. 

- DOC DOCument File (Datei mit Daten zur Dokumentation). 


- SYS SYStem File, d.h. (Betriebs-)Systemprogramm. 
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3. Kaltstart und Warmstart von CP/M 


Beim Kalt st ar t geht man wie folgt vor: Systemdis- 
kette mit CP/M in das Diskettenlaufwerk einlegen, alle 
peripheren Einheiten und zuletzt den Schneider einschalten. 
CP/M wird (in Teilen) von der Systemdiskette in den 
Internspeicher RAM geladen und meldet sich mit dem 
A> 

als seinem Bereitschaftszeichen (Promptzeichen bzw. kurz auch 
Prompt). Mit dem Kaltstart lassen -wir den Computer von Null 
bis zur vollen Betriebsbereitschaft "hochfahren". Sind mehre- 
re Laufwerke angeschlossen, dann werden diese als Laufwerk A, 
B, C, ... bezeichnet. Die Systemdiskette muß in das Laufwerk 
A eingelegt werden. Nur von diesem Laufwerk aus kann das Sy- 
stem sich selbst starten, d.h. booten (engl. "sich an den ei- 
genen Haaren aus dem Sumpf ziehen"). Man spricht aus diesem 
Grunde auch vom Bootlaufwerk. 


Wurde bereits mit dem Computer gearbeitet - ist er also noch 
warm -, kann CP/M durch Eingabe von CPM (von AMSDOS aus) 
oder eines Schlangengriffs (z.B. Tastenkombination Shift-Ex- 
tra-Exit) geladen werden. Durch den Warmstart werden ein ge- 
rade laufendes Programm unterbrochen und alle im RAM befind- 
lichen Daten gelöscht. 


4. Interne und externe CP/M-Befehle 
Interne Befehle sind als Teile des Betriebssystems CP/M beim 


Booten in den RAM geladen worden. Rufen wir einen solchen 


Befehl: Programm: Bedeutung: 


Interne Befehle (befinden sich ständig im RAM): 


DIR Inhaltsverzeichnis der Diskette 
ERA Eine Datei auf Diskette löschen 
REN Eine Datei auf Diskette umbenennen 
VPE Inhalt einer Datei (ASCII) zeigen 


Externe Befehle (zur Ausführung von Diskette in den RAM): 


FORMAT FORMAT.COM Leere Diskette neu formatieren 
12108 PIP.COM vateien kopieren bzw. übertragen 
STAT STAT.COM Zustand von Dateien anzeigen 
BIEECOPY ZETEEREOM Dateikopie bei einem Laufwerk 


DIESECEOPY ZDESECORYIEOM Diskettenkopie (ein Laufwerk) 
COPYDISK COPYDISK.COM Diskettenkopie (zwei Laufwerke) 


SETUP SETUP.COM System konfigurieren bzw. anpassen 
MOVCPM MOVCPM.COM CP/M bereitstellen 

SYSGEN SYSGEN.COM Bereitgestelltes CP/M auf Diskette 
BOOTGEN BOOTGEN.COM CP/M auf Diskette kopieren 

AMSDOS AMSDOS.COM Von CP/M nach AMSDOS wechseln 


Grundlegende Befehle von CP/M 
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Befehl auf (z.B. DIR), kann er sofort ausgeführt werden. Die 
Systemdiskette muß dabei nicht im Laufwerk einliegen. 

Externe Befehle rufen umfangreichere und nicht so häufig 
benötigte CP/M-Programme auf und müssen zunächst von der 
Systemdiskette in den RAM gebracht werden. Externe Befehle 
werden auch als transiente Programme bezeichnet, da sie nur 
vorübergehend (transient) im RAM stehen. 


5. CP/M-Versionen 


Das Betriebssystem CP/M ist für 8-Bit-Computer (CP/M-80) und 
für 16-Bit-Computer (CP/M-86) verfügbar. 
Das auf Schneider-Computern eingesetzte CP/M 2.2 (z.B. CPC 
464) ist aufwärtskompatibel zu CP/M plus (z.B. JOYCE). Das 
bedeutet, daß alle unter CP/M 2.2 erstellten Programme auch 
unter CP/M plus ausgeführt werden können. 


2.4.2 Interne Befehle an Beispielen 
2.4.2.1 Inhaltsverzeichnis anzeigen mit DIR 


Der DIR-Befehl zeigt das Inhaltsverzeichnis bzw. das Directory 
der Diskette an, die im angegebenen Laufwerk einliegt. Das 
Inhaltsverzeichnis der ersten der zwei zu diesem Buch angebo- 
tenen Disketten hat z.B. folgendes Aussehen: 


A>DIR 

A: BENCHMAR BAS : DATPEEK BAS : DEMO-USI BAS : KALKULAT BAS 
A: DRUCKSTE BAS : SKONTOZ1 BAS : PREIS1 BAS : SKONTOZ2 BAS 
A: SKONTOEl BAS : SKONTOE2 BAS : DREIFALL BAS : MWST BAS 
A: KAPITAL1 BAS : KAPITAL2 BAS : ZUFALL BAS : HELLOl BAS 
A: FAHRTENB BAS : RATENSPA BAS : DEMO-UPR BAS : DEMO-FUN BAS 
A: MENUE BAS : STANDARD BAS : BOOLEAN1 BAS : BOOLEAN2 BAS 
A: BOOLEAN3 BAS : TEXTO BAS : TEXTI BAS : TEXT2 BAS 
A: TEXT3 BAS : TEXT4 BAS : TEXT5 BAS : TEXT6 BAS 
A: TEXT7 BAS : TEXT8 BAS : TEXT9 BAS : DATUMINT BAS 
A: DATUMPRU BAS : ETIKETT BAS : WILDCARD BAS : BLOCKSAT BAS 
A: GEHEIM BAS : RATSPIEL BAS : EINGABEB BAS : CURSORPO BAS 
A: BILDMASK BAS : LANGSAM BAS : CHR$-TE BAS : DEMO-PRI BAS 
A: FUELLSTR BAS : RUNDENZA BAS : ASCII-TE BAS : DEZDUAL1 BAS 
A: HEXDEZ  BAS : DUALDEZ BAS : DEZHEX BAS : DEZDUAL2 BAS 
A: DEZDUAL3 BAS : DEZDUAL4 BAS : PREIS2 BAS : MODULALT BAS 
A: MODULNEU : VERBRAU BAS 


Hinter DIR können die beiden Joker- bzw. Wildcard-Zeichen "*" 
und '"'?" angegeben werden: 

- "X" ersetzt eine Folge von Zeichen. 

- "7?" ersetzt ein einzelnes Zeichen. 
Durch DIR *%.BAS erhält man also z.B. alle Dateien vom BAS- 
Typ, d.h. alle BASIC-Programme. Die folgenden Beispiele 
beziehen sich auf das oben gelistete Directory. 
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A>DIR TEXT*.* 

A: TEXTO BAS : TEXTI BAS : TEXT2 BAS : TEXT3 BAS 
A: TEXT4 BAS : TEXT5 BAS : TEXT6 BAS : TEXT? BAS 
A: TEXT8 BAS : TEXT9 BAS 

A>DIR SKO*.BAS 

A: SKONTOZ1 BAS : SKONTOZ2 BAS : SKONTOEl BAS : SKONTOE2 BAS 
A> 


A: HELLOl BAS : MENUE BAS : TEXTO _ BAS : TEXTI BAS 
A: TEXT2 BAS : TEXT3 BAS : TEXT4 BAS : TEXT5 BAS 
A: TEXT6 BAS : TEXT? BAS : TEXT8 BAS : TEXT9 BAS 
A: GEHEIM BAS : HEXDEZ BAS : DEZHEX BAS 

A> 

A>DIR ?E??ER,* 

A: MENUE BAS : HEXDEZ  BAS : DEZHEX BAS 

A> 


2.4.2.2 Aktuelles Laufwerk wechseln mit A: bzw. B: 


Sind mehrere Laufwerke angeschlossen, so kann mit dem Befehl 
B: das Laufwerk B zum aktuellen Laufwerk erklärt werden. Auf 
das aktuelle Laufwerk greift CP/M zu, wenn nichts näheres an- 
gegeben wird. Man spricht deshalb auch vom Default- und Stan- 
dard-Laufwerk. Die Befehlsfolge 


A> B: Befehlseingabe B: 
B> DIR Befehlseingabe DIR 


bewirkt somit dasselbe wie der Befehl 
A> DIR B: Befehlseingabe DIR B:. 


In beiden Fällen wird das Inhaltsverzeichnis der in Laufwerk 
B einliegenden Diskette angezeigt. Nach der Befehlsausführung 
ist im ersten Fall B und im zweiten Fall A das aktuelle Lauf- 
werk. 


2.4.2.3 Dateien von Diskette löschen mit ERA 


Mit dem Befehl ERA kann man eine oder mehrere Dateien von der 
Diskette entfernen. Wie die Beispiele zeigen, ist dabei fol- 
gendes zu beachten: 


- Bei Diskettenwechsel C oder Ctrl-C tippen (Bdos Err). 
- Dateityp ist anzugeben: VERBRAU.BAS anstelle VERBRAU. 
- DIR kann zur Kontrolle eingegeben werden. 

- ERA *.BAS entfernt a 1 1 e BASIC-Programme. 

- ERA *.* löscht a 1 l e Dateien auf der Diskette. 

- ERA B:*.* löscht alle Dateien von Laufwerk B. 

- ERA *.BAK löscht alle BAK-Dateien. 
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A>ERA VERBRAU 

Bdos Err On A: R/O 
A> 

A>ERA VERBRAU 

NO FILE 

A>ERA VERBRAU.BAS 
A> 

A>DIR VERBRAU.BAS 
NO FILE 


Der Befehl ERA *.BAK ist sehr nützlich: Schneider-BASIC hat 
die Eigenschaft, bei jedem SAVE-Befehl das bisherige Programm 
XXX.BAS unter dem Namen XXX.BAK als Sicherheitskopie zusätz- 
lich auf Diskette abzulegen. Mittels ERA *.BAK können alle 
BAK-Dateien (BAK für BAcK up-File) wieder gelöscht werden. 


A>ERA *.BAK 
Bdos Err On A: R/O 
Ayera *.bak 


2.4.2.4 Datei auf Diskette umbenennen mit REN 


Mit dem REN-Befehl kann der Name einer Datei auf der Diskette 
geändert werden. Die allgemeine Form 


REN Dateinameneu = Dateinamealt 


erinnert an die LET-Anweisung "Neu ergibt sich aus alt". Im 
Beispiel wird die Datei PREIS1.BAS in PREIS11.BAS umbenannt, 
um dann die Namensänderung wieder rückgängig zu machen: 


A>REN PREIS11.BAS=PREIS1.BAS 
A>DIR PREIS11.BAS 

A: PREIS11 BAS 

A>DIR PREIS1.BAS 

NO FILE 

A> 

A»REN PREIS1.BAS=PREIS11.BAS 
A>DIR PREIS1.BAS 

A: PREIS BAS 


2.4.2.5 Dateiinhalt anzeigen mit TYPE 


Der TYPE-Befehl bezieht sich auf eine Textdatei, die Zeichen 
im ASCII-Format enthält. Wie das Beispiel zeigt, ergibt die 
Anwendung von TYPE auf ein 'normales' BASIC-Programm einen 
kaum lesbaren Ausdruck, der u.U. auch zum Systemabsturz füh- 
ren kann. Speichert man das Programm PREIS! nun im ASCII-Code 
mittels SAVE "PREIS1.BAS",A ab, gibt TYPE ein korrektes Li- 
sting. 
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A>TYPE PREIS1.BAS 
PREIS1 BASptt# 


P% E ====== Programm PREIS1# "Alter Preis"; 
Päld£2=!NeuBroßrema:PREIS1# "Alter Preis"; 

A> 

A> 

A> Oben: Unkorrekter Ausdruck. 
A>TYPE PREIS1.BAS da mit SAVE "PREIS1" 

10 REM ====== Programm PREIS1 gespeichert. 

20 INPUT "Alter Preis";P Unten: Korrekter Ausdruck, 
30 LET P=P-P*15/100 da Programm PREIS1I zuvor als 
40 PRINT "Neuer Preis:"; P ASCII-Textdatei gespeichert 
50 END wurde: SAVE "PREIS1",A. 


2.4.3 Externe Befehle an Beispielen 


Externe bzw. transiente Befehle von CP/M müssen vor dem Auf- 
ruf von der Systemdiskette in den RAM geladen werden. Dazu 
muß sich zum Zeitpunkt der Eingabe des betreffenden Befehls- 
wortes die Systemdiskette im angegebenen Laufwerk befinden. 


2.4.3.1 Diskette formatieren mit FORMAT 


Das Systemformat wird durch Eingabe von FORMAT erzeugt. Zum 
Formatieren geht man dabei wie folgt vor: 

- Am Bildschirm steht das CP/M-Prompt "A>", 

- Systemdiskette mit Datei FORMAT.COM in Laufwerk A einlegen. 
- FORMAT eintippen: Meldung "Please insert ..." abwarten. 

- Leerdiskette in Laufwerk A einlegen und Taste drücken. 


während des Formatierens zeigt der FORMAT-Befehl auf dem Bild- 
schirm an, daß 40 kreisrunde Spuren (Tracks) auf die Diskette 
aufgezeichnet werden: "Formatting track 0,1,...,39". Jede 
Spur wird in 9 Sektoren zu je 512 Zeichen (Bytes) eingeteilt. 
Abschließend kopiert FORMAT die zwei Systemspuren von CP/M von 
der Systemdiskette auf die soeben formatierte Diskette. 


- 40 Spuren 0-39. 

- 9 Sektoren/Spur zu je 512 Bytes.” 
- Sektornummern 41,42,...,49. 

- Einseitige Aufzeichnung. 

- 2 Systemspuren für CP/M. 

- Blockgröße 1 KB (1024 Bytes). 

- 64 Directory-Einträge maximal. 

- Diskettengrößen 3" oder 5.25". 

- Kapazität ca. 180 KB je Seite. 


Schneider-Format DDI als Beispiel 
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A>FORMAT 
FORMAT V2.0 


Please insert disc to be formatted into drive A 
then press any key:_o 


Formatting started 
Formatting track O0 
Formatting track 1 
Formatting track 


Formatting track 38 
Formatting track 39 
Formatting complete 
Do you want to format another disc (Y/N): 


Durch Angabe der Parameter D, I und V lassen sich folgende 
Formate einrichten: 


- FORMAT System-Format mit CP/M auf 2 Systemspuren. 
- FORMAT D Daten-Format ohne Systemspuren. 

- FORMAT I IBM-kompatibles Format. 

- FORMAT V Vendor-Format: System-Format mit leeren 


Systemspuren. 
Disketten dürfen nur im Daten- oder Vendor-Format weitergege- 
ben werden. 


2.4.3.2 Dateien kopieren mit PIP 


PIP steht für "Peripheral Interchange Programm", also "Peri- 
pherie-Austausch-Programm". Die allgemeine Form ist: 


PIP Zielname = Quellenname 


Wie beim REN-Befehl wird zuerst der (neue) Zielname genannt. 


- PIP B:PREIS1=A:PREISI PREIS1I von A nach B kopieren. 
- PIP B:=A:PREISI Wie oben. 

- PIP B:P3=A:PREISI Wie oben und in P3 umbenennen. 
- PIP A:P3=B:PREISI] Geht nicht, da 1 Laufwerk. 

- PIP B:=A:*.BAS Alle BASIC-Programme kopieren. 
- PIP LST:=DEMO.TXT DEMO.TXT ausdrucken. 

- PIP LIES.TXT=CON: Tastatureingabe in LIES.TXT 


abspeichern. 


Mittels PIP LIES.TXT=CON: läßt sich z.B. ein Hinweistext auf 
Diskette abspeichern: Nach jeder Eingabe von /Enter/ muß zu- 
sätzlich /Ctrl-J/ eingegeben werden; PIP wird abgeschlossen 
mit /Ctrl-z/. 

Die Gerätebezeichnungen CON: und LST: stehen für Console (Ta- 
statur) und Lister (Drucker). 

Ist nur ein Laufwerk angeschlossen, muß FILECOPY anstelle von 
PIP verwendet werden. 
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2.4.3.3 Diskette kopieren mit DISCCOPY und COPYDISK 


Bei einem System mit nur einem Laufwerk kann mit DISCCOPY ei- 

ne Sicherungskopie der kompletten Diskette angelegt werden. 

Das folgende Beispiel verweist dabei auf folgendes: 

- DISCCOPY fordert die "Source disc" an, d.h. die Quel- 
lendiskette, deren Inhalt zu kopieren ist. 

- Mit "Destination disc" ist die Zieldiskette gemeint, die 
die Sicherungskopie dann aufnehmen soll. 

- Ist die Zieldiskette noch unformatiert, so wird dies 
nachgeholt: "Formatting whilst copying". 

- DISCCOPY überprüft die Zieldiskette und bricht den Vor- 


gang ggf. ab: "... abandoned". 
Sind zwei Laufwerke verfügbar, wird COPYDISK eingesetzt. 
A»DISCCOPY 


DISCCOPY V2.0 


Please insert source disc into drive A then press any key:_ 
Copying started 
Reading track 
Reading track 
Reading track 
Reading track 
Reading track 
Reading track 
Reading track 
Reading track 
Please insert destination disc into drive A then press any key:_ 
Formatting whilst copying 

Writing track O0 

Failed to write the destination disc correctly : track 0 sector 69 


snsouv rPwwmm-o 


WARNING: Failed to copy disc correctly 
The destination disc should not be used until it is successfully copied on ' 


Please insert a CP/M system disc into drive A then press any key:_ 


DISCCOPY V2.O abandoned 


2.4.3.4 Zustand prüfen mit STAT 


Der STAT-Befehl dient der Prüfung des Zustandes von Dateien, 
die auf der angegebenen Diskette gespeichert sind. STAT ent- 
hält zahlreiche Parameter. 


ADSTAT a: 
Bytes Remaining On A: 32k Recs für Records bzw. Sätze. 
A>STAT FORMAT .COM 3k für 3 Kilobytes. 
Ext für Extension. 
Recs Bytes Ext Acc ACC für Access bzw. Zugriff. 
21 3k 1 R/W A: FORMAT.COM R/W bedeutet Read/Write, 


Bytes Remaining On A: 32k 
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2.5.1 Betriebssysteme als Firmware oder als Software 


Auf Schneider CPCs kann unter mehreren Betriebssystemen gear- 
beitet werden: unter AMSDOS, CP/M und MS-DOS. Das Betriebssy- 
stem AMSDOS ist im ROM fest untergebracht und steht unmittel- 
bar nach dem Anschalten des CPCs zur Verfügung; AMSDOS liegt 
somit als Firmware vor. Das Betriebssystem CP/M muß von einer 
Systemdiskette in den RAM geladen werden, liegt also als Soft- 
ware vor. 

AMSDOS wie CP/M arbeiten mit dem serienmäßig eingebauten Z80- 
Prozessor. Verfügt man über eine entsprechende Zusatzkarte, so 
kann auch unter dem Betriebssystem MS-DOS auf dem Schneider 
gearbeitet werden. CP/M und MS-DOS sind die am weitesten ver- 
breiteten Betriebssysteme für 8-Bit-Computer (280) und 16-Bit- 
Computer (Prozessoren 8088 bzw. 8086). 


EBENE: 
Anwendungs- Problemlösungen 
programme 
Software: dBASE, Wordstar, Multiplan, 
usw. als Werkzeuge bzw. Tools 
Sprachen Software: MBASIC, Software: MBASIC, 
TURBO-Pascal TURBO-Pascal 
Firmware: 
Schneider BASIC 
Betriebs- Software: CP/M Software: MS-DOS 
system Firmware: AMSDOS 
Maschinen- 8-Bit-Prozessor 16-Bit-Prozessor 
sprache (280 eingebaut) (8088 zusätzlich) 


Schneider CPC mit fünf Nutzungsebenen 


Das Wechseln von einer zur anderen Nutzungsebene ist einfach: 
Beim Einschalten des CPCs gelangt man automatisch in die Spra- 
chenebene: Man kann sofort unter AMSDOS mit dem fest eingebau- 
ten Schneider BASIC arbeiten. 

Durch Eingabe des AMSDOS-Befehls |CPM gelangt man in die Ebene 
des Betriebssystems CP/M. Man kann nun eine Programmiersprache 
(z.B. Eingabe von MBASIC) laden oder ein Anwenderwerkzeug bzw. 
Tool (z.B. das Datenbanksystem dBASE). 
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2.5.2 Betriebssysteme und Diskettenformate 


1. Schneider-Format für 3"- und 5.25"-Disketten: 
Das Schneider-Laufwerk DDI für CPC 464, 664, 6128 sowie UJOYCE 
verarbeitet 3"-Disketten unter AMSDOS und CP/M. Andere Firmen 
bieten Laufwerke für 5.25"-Disketten im Schneider-Format an 
(Beispiele: Cumana, Data Media und Vortex F1-2). 


2. Vortex-Format für 5.25"-Disketten: 


Vortex-Laufwerke wie F1-S und F1-D sehen unter dem Betriebs- 
system VDOS eine Kapazität von bis zu ca. 1.4 MB vor. 


Schneider-Format: Vortex-Format: 


Sektoren/Spur: 9 9 
Bytes/Sektor: 5 512 
Spuren/Seite: 40 80 
Seiten: il 2 
Reservierte Spuren: 2 2 
Blockgröße: 1 KB 4 KB 
Directory-Einträge: 64 64 
Sektornumnmern: 41-49 1-9 
Steprate: 12 ms 4 ms 
Kapazität unformatiert: 180 KB 720 KB 


Wichtige Kenngrößen von Schneider-und Vortex-Format 


3. CP/M-Formate: 

CP/M-Software wird überwiegend auf 5.25"-Disketten angeboten. 
Aus diesem Grunde ist es günstig, z.B. über ein Zweitlaufwerk 
5.25"-Disketten lesen zu können. Konvertierungsprogramme ver- 
einfachen den Zugriff auf die zumeist 40-spurigen Formate. 


4. IBM-Formate: 

Unter MS-DOS beschriebene Disketten können nur dann gelesen 
werden, wenn eine entsprechende Karte verfügbar ist. Auf die 
unter CP/M-86 auf einem IBM PC erstellten Disketten kann je- 
doch auch unter CP/M-2.2 bzw. CP/M Plus zugegriffen werden. Da 
das Schneider-Format fast identisch ist mit dem CP/M-86-For- 
mat, kommt Laufwerken wie z.B. Vortex F1-Z eine besondere Be- 
deutung zu. 
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Wie in Abschnitt 1.3.3 dargestellt, lassen sich aus den vier 
grundlegenden Programmstrukturen Folge, Auswahl, 
Wiederholung und Unterprogramm alle nur denkbaren Programmab- 
läufe konstruieren. 


Folgestrukturen (linear, geradeaus) 
Auswahlstrukturen (vorwärts verzweigend) 
Wiederholungsstrukturen (rückwärts verzweigend, Schleife) 
Unterprogrammstrukturen (unterteilend) 


Vier grundlegende Programmstrukturen 


In Abschnitt 3.1 wird zu jeder Programmstruktur mindestens ein 
in sich abgeschlossenes Demonstrationsbeispiel angegeben und 
erklärt. 


3.1.1 Lineare Programme (Folgestrukturen) 


3.1.1.1 Codierung und Ausführungen zu einem Programm 


Jedes Programm hat einen Namen. Das Programm mit Namen VERBRAU 
ermittelt den durchschnittlichen Benzinverbrauch für einen Pkw 
mit einem Tankinhalt von 60 Litern. Wir haben es schon in Ab- 
schnitt 2.1 kennengelernt und wollen es nun näher untersuchen. 


Codierung zu VERBRAU: Zwei Ausführungen zu VERBRAU: 
LOAD "VERBRAU'" RUN 
Eingabe: Gefahrene km 
LIST ? 600 
10 LET T=60 Ausgabe: Liter/1l00 km 
20 PRINT "Eingabe: Gefahrene km" 10 
30 INPUT K 


40 LET D=100*T/K 
50 PRINT "Ausgabe: Liter/100 km" 
60 PRINT D 


RUN 
70 END Eingabe: Gefahrene km 
2 542 
Ausgabe: Liter/100 km 
11.07011 


Tippt man den Befehl RUN ein, wird das Programm ausgeführt: 
Der Computer gibt den Text "Eingabe: Gefahrene km" aus , der 
Benutzer gibt 600 ein, der Computer berechnet 10 L als Durch- 
schnittsverbrauch, um nun den Text "Ausgabe: Liter/100 km" und 
die Zahl 10 auszugeben. Bei der zweiten Ausführung entwickelt 
sich ein ähnlicher Mensch-Computer-Dialog, nur wird dabei von 
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542 km ausgegangen. 

Beide Programm aus führung en (häufig auch Programn- 
lauf oder Dialogprotokoll genannt) werden dem Computer durch 
Anweisungen befohlen, die man sich durch Eintippen des Befehls 
LIST zeigen lassen kann. Das in der Programmiersprache BASIC 
codierte Programm VERBRAU umfaßt sieben Zeilen mit den Zei- 
lennummern 10-70 sowie vier Anweisungsarten LET, PRINT, INPUT 
und END. Das Programm wird Zeile für Zeile linear ausgeführt: 


- 10: Weise die Zahl 60 nach T (wie Tankfüllung) zu. 

- 20: Gib am Bildschirm den zwischen " '" stehenden Text aus. 

- 30: Warte auf eine Tastatureingabe und weise diese Eingabe 
dann der Variablen K (für Kilometer) zu. 

- 40: Rechne 100 mal T durch K aus und weise das Ergebnis dann 
der Variablen D (für Durchschnittsverbrauch) zu. 

- 50: Gib am Bildschirm den zwischen " '" stehenden Text aus. 

- 60: Gib am Bildschirm den Inhalt der Variablen D aus. 

- 70: Beende die Ausführung des Programms VERBRAU. 


Jede Programmzeile besteht aus der Zeilennummer (z.B. 30) mit 
Anweisungswort (z.B. INPUT) und Anweisungsargument (z.B.K). 
Die BASIC - Codierung (auch BASIC-Listing genannt) be- 
steht aus einer Folge von computerverständlich in BASIC formu- 
lierten Anweisungen. Dass einmal codierte Pro- 
gramm kann dabei mehrmals ausgeführt wer- 
den, wobei sich die Ausführungen je nach Eingabewerten unter- 
scheiden können, die Codierung aber unverändert zugrundeliegt. 


Dies wird ermöglicht durch die Verwendung von Variablen (vgl. 
Abschnitt 1.3.4.2), hier durch die numerischen Variablen K und 
D. während K und D ihren Inhalt (Wert) ändern, bleibt dieser 
bei T mit 60 Litern fest bzw. konstant: T ist eine Konstante. 
Daten können als Variablen oder Konstanten 
im Programm vorgesehen sein; hier sind beides numerische Daten 
bzw. Zahlen. 


Keosneseteramnetzernz AerestezDaten): 


10 LET T=60 Die feste Zahl 60 der Konstanten T 
zuweisen und unverändert belassen. 


50 PRINT "Ausgabe: Liter/100 km" Einen gleichbleibenden 
Text ausgeben. 


Veasrnarbelzeen A(everanderlache Daten): 

30 INPUT K Eine beliebige über Tastatur eingegebe- 
ne Zahl der Variablen K zuweisen. 

40 LET D=100*T/K Eine Berechnung durchführen und das Er- 
gebnis der Variablen D zuweisen. 

60 PRINT D Den derzeitigen Wert der Variablen D am 


Bildschirm ausgeben. 


Konstanten und Variablen im Programm VERBRAU 
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Betrachten wir die vier im Programm VERBRAU verwendeten Anwei- 
sungen: 

Die LET-Anweisung berechnet den rechts vom Zuweisungszeichen 
"=" angebenenen Ausdruck und weist dann das Ergebnis der links 
von "=" stehenden Variablen zu. Bei LET (für (zu)lassen) darf 
links vom Zuweisungszeichen "=" immer nur e i n Name ste- 
hen. LET T=60 bedeutet "weise die Zahl 60 der Variablen T zu" 
oder kürzer "T ergibt sich aus 60". 


Die PRINT-Anweisung dient einerseits der Ausgabe von Text, der 
stets zwischen Gänsefüßchen steht (in den Zeilen 20 und 50), 
und andererseits der Ausgabe des Inhalts von Variablen (in der 
zeile 60). 


Die INPUT-Anweisung dient der Tastatureingabe von Werten und 
deren Zuweisung in eine Variable wie etwa in die Variable K in 
Zeile 30. 


Die END-Anweisung beendet die Ausführung. 


3.1.1.2 Anweisungsfolge Eingabe - Verarbeitung - Ausgabe 


Jedes Programm läuft in der Folge Eingabe-Verarbeitung-Ausgabe 
ab, auch als EVA-Prinzip bezeichnet (vgl. Abschnitt 1.2.2.1). 
Im folgenden Programm namens PREIS] zeigt sich der 3er-Schritt 
in den Zeilen 20, 30 und 40. 


Codierung zu PREISI1: Zwei Ausführungen zu PREISI1: 
LIST RUN 

10 REM ====== Programm PREIS1 Alter Preis? 200 

20 INPUT "Alter Preis";P Neuer Preis: 170 

30 LET P=P-P*15/100 

40 PRINT "Neuer Preis:"; P RUN 

50 END Alter Preis? 4925.65 

Ok? Neuer Preis: 4186.802 


Die REM-Anweisung (engl. remark für Bemerkung) ermöglicht das 
Einfügen von Bemerkungen, die nur bei LIST erscheinen, nicht 
aber bei RUN. So erscheint hier der Programmname PREISI bei 
den Ausführungen nicht, wohl aber bei der Codierung. 

Die Zeile 20 hätte man auch umständlicher codieren können: 


20 PRINT "ALTER PREIS:"; 
21 INPUT P 


Da vor jedem INPUT ein PRINT stehen sollte -sonst weiß man ja 
nicht, was überhaupt einzutippen ist-, kann man mit Anweisung 


20 INPUT "ALTER PREIS: ";P 


die Eingabeanforderung mit der Eingabe zusammen in einer 
INPUT-Anweisung programmieren. 
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Die LET-Anweisung in Zeile 30 zeigt den Unterschied zwischen 
dem Zuweisungszeichen "=" (weise von rechts nach links zu) und 
dem Gleichheitszeichen "=" in der Mathematik (links=rechts). 


SORTE BZ 277 P2315 7/4100 
| | L——— 1. 200*15/100 ergibt 30 (200 in P) 
2. 200-30 ergibt 170 (200 in P) 
3. weise 17/07 nach, P zu 17.07 3n- PB) 


Wertzuweisung durch LET an einem Beispiel 


Entsprechend bewirken die Anweisungen 
180 LET 2Z=2+]1 

eine Werterhöhung des derzeitigen Inhalts von Z um I und 
230 LET X1=X1/2 

eine Halbierung von X1. 


Die PRINT-Anweisung in Zeile 40 zeigt, wie man sich konstanten 
Text und variable Werte nebeneinander ausgeben lassen kann: 
Das ; trennt ohne Leerzeichen (auch Blank bzw. Space genannt). 
Auf die Gänsefüßchen kommt es an: PRINT '"P" würde den Buchsta- 
ben P am Bildschirm zeigen, PRINT P den Wert der Variablen P. 


PRINT-Anweisung: ... am Bildschirm erscheint: 
SEPRINTENDE Das einzelne Zeichen bzw. der Text P 
7 PRINT P Z2.B. Zahl 1657 als Wert der Variablen P 


40 PRINT "PREIS:'";P 2.B. PREIS: 1657 (also konstanter Text 
und Zahlenvariable mit ; zur Trennung). 


Ausgabe durch PRINT an drei Beispielen 


3.1.1.3 Übersichtliche Programmgliederung 


Wie in Abschnitt 1.3.4.3 erläutert „ gliedert man ein Programm 
unabhängig von der jeweiligen Programmiersprache übersichtlich 
in die drei Teile Name, Vereinbarungsteil und Anweisungsteil. 


1. Programmname (ZRBREPREIS2I) 
2. Vereinbarungsteil (z.B. Variablen S% und P! vereinbaren) 
3. Anweisungsteil. (z.B. 6 Anweisungen hintereinander) 


Drei Teile eines Programmes 
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In BASIC ist diese explizite Dreiteilung nicht zwingend er- 
forderlich. Insbesondere bei umfangreichen, langen Programmen 
sollte man die Dreiteilung aber unbedingt vorsehen: sie läßt 
sich in BASIC durch REM-Anweisungen markieren. 


Das folgende Programm PREIS2 sieht eine Dreiteilung vor, wobei 
die Teile durch Leerzeilen und REM getrennt werden (das Hoch- 
komma " kann anstelle von REM geschrieben werden). Im Verein- 
barungsteil wird S als Ganzzahl-Konstante vereinbart (integer= 
ganzzahlig) und P als Dezimalzahl-Variable (real=kommazahlig). 
Dabei stehen % bei S% für Ganzzahl und ! bei P! für Kommazahl 
(siehe Anschnitt 2.3.1). 


Mehrere Anweisungen in einer Zeile: 


In BASIC ist es möglich, mehrere Anweisungen durch einen ':" 
getrennt in ei ne Zeile zu schreiben. Lange Zeilen sind 
unübersichtlich und schwer korrigierbar, das Zeichen ":" soll 


weitgehend vermieden werden. In der letzten Zeile von Programm 
PREIS2 werden mit dem '":" die Anweisungen PRINT sowie END in 
einer Zeile programmiert. 


Codierung zu Programm PREIS2: 


100 REM ====== Programm PREIS2 


110 REM ====== Vereinbarungsteil 

120 ' S% Preissenkung in % als Konstante (Datentyp GANZZAHL (%)) 

130 LET S%=15 

140 ' P! Preis als variable Größe (Datentyp EINFACHE GENAUIGKEIT (!)) 


150 REM ====== Anweisungsteil 

160 PRINT "Preissenkung um 15% ermitteln." 
170 INPUT "Alter Preis"; P! 

180 LET P! = P! - P!*S%/100 

190 PRINT "Neuer Preis:"; P! 

200 PRINT "Ende des Programms." : END 


Ausführungen zu Programm PREIS2: 


Preissenkung um 15% ermitteln. Preissenkung um 15% ermitteln. 
Alter Preis? 200 Alter Preis? 4925.65 

Neuer Preis: 170 Neuer Preis: 4186.802 

Ende des Programms. Ende des Programms. 


Die Programme PREIS2 und PREIS1I lösen beide dasselbe Problem. 
Die Codierungen unterscheiden sich wesentlich, die Ausführun- 
gen hingegen kaum. 
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3.1.1.4 Programmeingabe und Programmspeicherung 


Soll ein Programm wie z.B. das Programm PREIS2 erstmalig in 
den Computer eingegeben werden, geht man üblicherweise in den 
acht in der Abbildung dargestellten Schritten vor. 


1. Befehl NEW tippen. Ein ggf. im Hauptspeicher RAM befind- 
liches Programm wird gelöscht. 

2. Programm Zeile für Zeile eintippen und am Ende jeder Zeile 
dabei die RETURN-Taste drücken. 

3. Befehl RUN tippen, um das Programm auszuführen und so zu 
testen. Falls fehlerhaft: Korrektur, weiter mit 2. 

4. Befehl LIST tippen und Codierung überprüfen. 

5. Befehl SAVE "PREIS2" tippen: Das bislang ohne Namen im RAM 
stehende Programm wird unter dem Namen PREIS2 extern auf 
Diskette abgespeichert. Ein ggf. unter dem gleichen Namen 
auf Diskette vorhandenes Programm wird ü be r schrieben. 
Programm PREIS2 befindet sich sowohl auf Diskette wie auch 
im RAM. Beide Programmkopien stimmen vollkommen überein. 

6. Zur Kontrolle: 

NEW tippen, RUN tippen: kein Programm ist mehr ausführbar. 
Befehl LOAD "PREIS2" tippen: das Programm "PREIS2" wird 
auf Diskette gesucht und eine Kopie davon in den RAM gela- 
Das Programm kann mit RUN nun ausgeführt werden. 

7. Befehl FILES eintippen: Alle derzeit auf Diskette gespei- 
cherten Programme werden gezeigt, so auch Programm PREIS2. 

8. Zur Dokumentation das Listing (Codierung) und das Running 
(Ausführung) ausdrucken lassen. 


8-Schritt-Folge zur Programmeingabe am Beispiel von PREIS2 


Achtung: SAVE "PROG1'" überschreibt ein auf Diskette vorhan- 
denes Programm mit demselben Namen PROGI1. LOAD "PROG1" über- 
schreibt dagegen das gerade im Arbeitsspeicher RAM befindliche 
Programm. 


Im RAM ist normalerweise nur e i n einziges Programm gespei- 
chert, auf der Diskette aber stets mehrere Programme. 


Zum Ausdrucken des Programms in Schritt 8: 

In der Abbildung sind mehrere Möglichkeiten wiederangegeben. 
Zum Ausdrucken des Listing bietet der Befehl LIST #8die größte 
Sicherheit (keim Ausdrucken des Bildschirminhalts kann es eher 
zu Unstimmigxeiten mit den Zeichensätzen von Bildschirm und 
Drucker kommen). 
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3.1.1.5 Arbeitsschritte zur Programmentwicklung 


Je umfangreicher ein Programm, um so sinnvoller erscheint ein 
geplantes und schrittweises Vorgehen zur Programmentwicklung. 
In Abschnitt 1.3.7 nannten wir allgemein die Arbeitsschritte 
PROBLEMSTELLUNG, PROGRAMMENTWURF, PROGRAMMIERUNG, DOKUMENTA- 
TION und ANWENDUNG. "Allgemein' heißt, daß diese Schrittfolge 
auch zur Entwicklung komplexer Programm-Pakete geeignet ist. 
Für die in diesem Buch angeführten kleinen Demonstrationspro- 
gramme genügt eine vereinfachte Arbeitsschrittfolge: 


1. Problemstellung 

2. Problemanalyse 

3. Darstellungen des Algorithmus 
4. Codierung in BASIC 

5. Anwendung/Ausführung 

6. Dokumentation 


Am Beispiel des -wiederum linearen- Programmes KALKULAT werden 
wir die Arbeitsschritte 1., 2., 4. und 5. darstellen. 


Problemstellung zu Programm KALKULAT: 

Es ist ein Dialogprogramm zu erstellen, das ausgehend vom Ein- 
standspreis den Nettoverkaufspreis und den Zuschlagsatz kalku- 
liert. 


Problemanalyse zu Programm KALKULAT: 

Ineiner Variablen lis te lassen sich die im Pro- 
gramm verwendeten Variablen wie in der Abbildung dargestellt 
zusammenfassen. 


Ausgabedaten (Resultate): 


NET Nettoverkaufspreis in DM 
KALK Kalkulationszuschlag in % 


Eingabedaten (von Tastatur): 


EINST Einstandspreis in DM 


P1 Gemeinkostenzuschlag in % (von Hundert) 
P2 Gewinnzuschlag in % (von Hundert) 

Ps Skontosatz in % (im Hundert) 

P4: Rabattsatz in % (im Hundert) 


Verarbeitung (Formeln): 
GEMEIN Gemeinkosten in DM (GEMEIN=EINST*P1/100) 
SELBST Selbstkosten in DM (SELBST=EINST+GEMEIN) 
SPANNE Gewinnspanne in DM (SPANNE=SELBST*P2/100) 


BAR Barverkaufspreis in DM (BAR=SELBST+SPANNE) 
SKO Skontobetrag in DM (SKO=BAR*P3/(100-P3)) 
ZIEL Zielverkaufspreis in DM (ZIEL=BAR+SKO) 

RAB Rabattbetrag in DM (RAB=ZIEL*P4/(100-P4)) 
NET Nettoverkaufspreis in DM (NET=ZIEL+RAB) 


KALK Kalkulationszuschlag (KALK=(NET-EINST)*100/EINST) 


Variablenliste zum Programm KALKULAT 
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Der folgende Schritt plan zeigt eine grobe Darstel- 
lung des Lösungsablaufes vom Programm KALKULAT: 


Schritt 1: Vier Zuschlagsätze P1-P4 eintippen 
Schritt 2: Einstandspreis EINST eintippen 
Schritt 3: NET und KALK berechnen 
Schritt 4: NET und KALK als Resultat ausgeben 
Codierung zu Programm KALKULAT: 
100 REM ====== Programm KALKULAT 
110 PRINT "Warenkalkulation durchfuehren: Vom" 
120 PRINT "Einstandspreis zum Nettoverkaufspreis.'": PRINT 
121.8 
130 REM ====== Vereinbarungsteil 
140 'P1,P2,P3,P4: Zuschlagsaetze in Prozent 
150 "EINST, GEMEIN, SELBST, GEWINN, BAR, SKO, ZIEL, RAB, NET 
160 "KALK: Kalkulationszuschlag in Prozent 
161 : 
170 REM ====== Anweisungsteil 
180 "sk EINGABETEIL (TASTATUR) PRkiebkikkpkkieikkpkgpklekelekklekieiekielieleiiigiek 
190 INPUT "Gemeinkosten in % von Hundert "; Pl 
200 INPUT "Gewinnzuschlag in % von Hundert"; P2 
210 INPUT "Skonto in % im Hundert "pP 
220 INPUT "Rabatt in % im Hundert Hs P& 
230 INPUT "Einstandspreis in DM "EINST 
231 : 
240 "> VERARBEITUNGSTEIL MIT WERTZUWEISUNGEN **3>kakakakskakakokakaiakeitsiokaistefeiekieick 
250 LET GEMEIN=EINST*P1/100 
260 LET SELBST=EINST+GEMEIN 
270 LET SPANNE=SELBST*P2/100 
280 LET BAR=SELBST+SPANNE 
290 LET SKO=BAR*P3/(100-P3) 


300 
310 
320 
330 
331 
340 
350 
360 
370 
380 


LET ZIEL=BAR+SKO 

LET RAB=ZIEL*P4/(100-P4) 

LET NET=ZIEL+RAB 

LET KALK=(NET-EINST)*100/EINST 


"sk AUSGABETEIL (BILDSCHIRMAUSGABE) Rekiekkiepkiskiekkipkiebkiepisgieieiiieieck 
PRINT : PRINT "Vorwaertskalkulation durchgefuehrt:" 

PRINT "Nettoverkaufspreis in DM: "; NET 

PRINT "Kalkulationszuschlag in %: "; KALK 

END 


Anwendung bzw. Ausführung zu Programm KALKULAT: 


Warenkalkulation durchfuehren: Vom 
Einstandspreis zum Nettoverkaufspreis. 


Ihre Aufgabe: Erweitern 


Gemeinkosten in % von Hundert ? 23 Sie Programm KALKULAT so, 
Gewinnzuschlag in % von Hundert? 14 daß nicht nur das Ergeb- 
Skonto in % im Hundert 22 nis, sondern auch alle 
Rabatt in % im Hundert ? 25 Zwischenschritte ausgege- 
Einstandspreis in DM ? 100 ben werden (PRINTs). 


Vorwaertskalkulation durchgefuehrt: 
Nettoverkaufspreis in DM: 190.7755 
Kalkulationszuschlag in %: 90.77551 
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3.1.2 Programme mit Verzweigungen (Auswahlstrukturen) 


Programmabläufe, die nach vorwärts verzweigen, werden als Aus- 
wahlstrukturen bezeichnet. Je nach der Anzahl der ausgewählten 
Fälle spricht man von der Zweiseitigen, Einseitigen oder Mehr- 
seitigen Auswahl(-struktur). Diese in Abschnitt 1.3.3.2 allge- 
mein beschriebenen Abläufe wollen jetzt in BASIC beispielhaft 
an kleinen Programmen darstellen. 


3.1.2.1 Zweiseitige Auswahl 


Dem Programm namens SKONTOZ1I liegt folgende Problemstellung 
zugrunde: 

"Erwarte den Rechnungsbetrag R und die Tage T als Tastaturein- 
gabe und ermittle den Skontobetrag S. Dabei gelten folgende 
Zahlungsbedingungen: Bei Zahlung nach 8 Tagen (T>8) 1.5% Skon- 
to, sonst (T<=8) jedoch 4% Skonto". 


Zum Programm SKONTOZ1 sind die Codierung, der Programmablauf- 
plan (PAP), das Struktogramm und zwei Ausführungen wiedergege- 
ben. Diese vier Darstellungsformen desselben Programms veran- 
schaulichen die zweiseitige Auswahl als Programmstruktur: 
- einerseits 1.5% (Bedingung T>8 erfüllt, 
JA-Zweig mit THEN) 
- andererseits 4% (Bedingung T>8 nicht erfüllt, 
NEIN-Zweig mit ELSE). 


Codierung zu SKONTO21: PAP zu SKONTO2Z1: 


100 REM ====== Programm SKONTOZ1 
110 PRINT "Skonto als Zweiseitige Auswahl." 
120 INPUT "Rechnungsbetrag in DM"; R 
130 INPUT "Tage nach Erhalt MUT 
140 IF T>8 
THEN LET P=1.5 
ELSE LET P=4 


150 LET S=R*P/100 : LET R=R-S 
160 PRINT S;" DM Skonto und";R;"DM Zahlung." 
170 PRINT "Ende." : END 


Zwei Ausführungen zu SKONTO2Z1: 


Skonto als Zweiseitige Auswahl. Skonto als Zweiseitige Auswahl. 
Rechnungsbetrag in DM? 200 Rechnungsbetrag in DM? 200 

Tage nach Erhalt 273 Tage nach Erhalt ?14 

8 DM Skonto und 192 DM Zahlung. 3 DM Skonto und 197 DM Zahlung. 


Ende. Ende. 


128 3 Programmierkurs mit Schneider BASIC und MBASIC 


Struktogramm zu Programm SKONTO21: 


Eingabe des Rechnungsbetrages R und der Tage T 


wenn T größer als 8 ist — 


weise 1.5% nach P zu weise 4% nach P zu 


Skontobetrag als P Prozent aus R: = R*P/100 
Rechnungsbetrag um Skonto vermindern: 


Ausgabe des Ergebnisses: S und R 


Zweiseitige 
Auswahl- 
struktur 


zur bedingten Verzweigung wird dabei die 
Anweisung IF..THEN..ELSE.. in der einfachsten Form verwendet. 


140 IF T> 8 ——— Verzweigungsbedingung T>8 


THEN ... —— JA-Zweig mit THEN, wenn T>8 wahr. 
ELSE ... ————— NEIN-Zweig mit ELSE, wenn T>8 unwahr. 


Anweisung IF..THEN..ELSE für die zweiseitige Auswahl 


Wenn (IF) T größer als 8 ist (T>8), dann (THEN) weise P den 
Wert 1.5 zu; wenn nicht (also wenn T kleiner oder gleich 8 
ist (T<=8), dann weise P den Wert 4 zu. 

Nach dieser Auswahl wird gemeinsam mit Zeile 150 fortgefahren. 


Läßt man das Programm SKONTOZ2 laufen, dann erscheint am Bild- 
schirm derselbe Dialog wie bei Programm SKONTOZ1. Auch die 
zeichnerischen Darstellungen als PAP und Struktogramm stimmen 
überein. 

Die BASIC-Codierungen dagegen unterscheiden sich beträchtlich. 


100 REM ====== Programm SKONTOZ2 

110 PRINT "Skonto als Zweiseitige Auswahl." 
120 INPUT "Rechnungsbetrag in DM"; R 

130 INPUT "Tage nach Erhalt “s'T 

140 IF T>8 THEN 190 ELSE 150 

150 LET P=4 

160 LET S=R*P/100 : LET R=R-S 

170 PRINT S;" DM Skonto und";R;"DM Zahlung." 
180 PRINT "Ende." : END 

190 LET P=1.5 

200 GOTO 160 
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Das Programm SKONTOZ2 enthält mit 


140 IF T>8 THEN 190 ELSE 150 


eine IF-Anweisung mit den beiden Sprungadressen 190 sowie 150 
im THEN-Teil sowie im ELSE-Teil. Kommt die Ausführung zu Zeile 
200, dann wird immer und bedingungslos nach Zeile 160 zurück- 
verzweigt. Die Anweisung 

200 GOTO 160 
nennt man deshalb unbedingte Verzweigung 
oder Sprunganweisung. 


Im Gegensatz zu den bisherigen Programmen steht die END-Anwei- 
sung bei Programm SKONTOZ2 nicht in der letzten Programmzeile. 


3.1.2.2 Einseitige Auswahl als Sonderfall 


Die Einseitige Auswahl(-struktur) 
"Wenn .., dann tue dies, sonst aber tue nichts" 

kann als Sonderfall der Zweiseitigen Auswahl (-struktur) 
"Wenn .., dann tue dies, sonst aber tue das" 


aufgefaßt werden. Zur Demonstration der Einseitigen Auswahl 
betrachten wir das Programm SKONTOE1: Die Ausführungen stimmen 
mit denen des Programms SKONTOZ1 überein, die Codierung hinge- 
gen zeigt eine Einseitige Auswahlstruktur . Dies wurde durch 
folgenden Trick erreicht: P wird in 140 auf 4% gesetzt und nur 
im Falle von T>8 um 2.5 auf 1.5% vermindert (190 LET P=P-2.5). 


Codierung zu Programm SKONTOE1: PAP zu SKONTOEI: 
100 REM ====== Programm SKONTOE1 

110 PRINT "Skonto als Einseitige Auswahl." 

120 INPUT "Rechnungsbetrag in DM"; R 

130 INPUT "Tage nach Erhalt Ns] 

140 LET P=4 


150 IF T>8 THEN 190 5 
160 LET S=R*P/100 : LET R=R-S 
170 PRINT S;" DM Skonto und'";R;"DM Zahlung." 
180 PRINT "Ende." : END 
! 


190 LET P=P-2.5 
200 GOTO 160 
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Ausführungen zu Programm SKONTOE1: 


Skonto als Einseitige Auswahl. Skonto als Einseitige Auswahl. 
Rechnungsbetrag in DM? 200 Rechnungsbetrag in DM? 200 
Tage nach Erhalt 23 Tage nach Erhalt ?14 

8 DM Skonto und 192 DM Zahlung. 3 DM Skonto und 197 DM Zahlung. 
Ende. Ende. 


Struktogramm zu Programm SKONTOE1: 
Eingabe der Variablen R und T; 
Konstante P erhält den Wert 4 
S = R*P/100 sowie R = R-S 


Ausgabe von S und R 


Einseitige 
Auswahl(-struktur) 


./. für "tue nichts" 
bzw. "Leeranweisung" 


Programm SKONTOE2 weicht nur in der Codierung von Programm 
SKONTOE1 ab. Anstelle der Verzweigungsanweisung IF..THEN GOTO 
wird in SKONTOE2 die Anweisung IF..THEN LET.. verwendet. Dabei 
wird LET natürlich nur dann ausgeführt, wenn die Verzweigungs- 
bedingung erfüllt ist. 

IF-Anweisungen wie IF..THEN PRINT... und IF..THEN INPUT.. sind 
entsprechend möglich. 

Soll in Abhängigkeit einer Verzweigungsbedingung nicht nur ei- 
ne einzelne Anweisung, sondern eine Anweisungsf o 1 g e durch- 
laufen werden, so ist die einfache Form IF..THEN.. immer vor- 
zuziehen, da sie eine besser lesbare Codierung gewährleistet. 
Anmerkung: Für IF..THEN.. kann auch IF..THEN GOTO.. stehen. 


Codierung zu Programm SKONTOE2: 


100 REM ====== Programm SKONTOE2 

110 PRINT "Skonto als Einseitige Auswahl." 
120 INPUT "Rechnungsbetrag in DM"; R 

130 INPUT "Tage nach Erhalt ST 

140 LET P=4 

150 IF T>8 THEN LET P=P-2.5 

160 LET S=R*P/100 : LET R=R-S 

170 PRINT S;" DM Skonto und";R;"DM Zahlung." 
180 PRINT "Ende." : END 
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3.1.2.3 Mehrseitige Auswahl als Sonderfall 


Bei der Mehrseitigen Auswahl werden mehrere Fälle unterschie- 
den: in dem Programm DREIFALL sind es die drei Fälle 'gleich', 
'vor' und 'nach'. Der PAP und auch das Struktogramm zeigen die 


geschachtelte Anordnung von zwei Zweiseitigen Auswahlstruk- 
turen. 


Wie die Einseitige Auswahl kann also auch die Mehrseitige Aus- 
wahl als Sonderfall der Zweiseitigen Auswahl aufgefaßt werden. 


Struktogramm zu Programm DREIFALL: 


Mehrseitige Auswahl 
Eingabe von W1$ und W2$ als Schachtelung: 

w1$=W2$ Zweiseitige Auswahl 

W1$=W2$ "außen" 
W1$<w2$ Zweiseitige Auswahl 

W1$<wW2$ "innen" 

eingeschachtelt 

'nach' 'vor' 'gleich' 


Programm beenden 


Codierung zu Programm DREIFALL (IF-Anweisungen geschachtelt): 


100 REM ====== Programm DREIFALL 
110 PRINT "Textvergleich: zwei Worte und drei Faelle." 
120 INPUT "Zwei Worte"; W1$,W2$ 
130 IF W1$=W2$ THEN PRINT W1$;" ist gleich ";W2$ 
ELSE IF W1$<W2$ THEN PRINT W1$;'" kommt vor ";W2$ 
ELSE PRINT W1$;'" kommt nach ";W2$ 
140 PRINT "Ende." : END 


Ausführungen zu Programm DREIFALL: PAP zu Programm DREIFALL: 


Textvergleich: zwei Worte und drei Faelle. 
Zwei Worte? 12% , HUNDERT 

12% kommt vor HUNDERT 

Ende. 


Textvergleich: zwei Worte und drei Faelle. 
Zwei Worte? PREIS , DM-BETRAG 

PREIS kommt nach DM-BETRAG 

Ende. 


Programm DREIFALL hat eine Schacht e 1 ung von Zwei- 
seitigen Auswahlstrukturen mittels IF..THEN..ELSE.. , bei der 
nach ELSE ein weiteres IF geschachtelt ist. 
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Betrachten wir zu dieser Schachtelung ein weiteres Beispiel: 


100 INPUT "Eine Erklaerung j)a oder n)ein"; E$ 
110 IF E$="j" 


THEN GOTO 120 Erklärung von Zeile 120 bis 190. 
ELSE IF E$="n" 
THEN 200 Programmbeginn in Zeile 200. 
ELSE 100 Zurück, wenn unklare Eingabe. 


In den IF-Anweisungen dieses Programms findet kein numerischer 
Vergleich statt, sondern ein Textvergleich :Die 
Verzweigungsbedingung W1$=W2$ (ist der Wert von Variable WI$ 
gleich dem von Variable W2$) vergleicht die derzeitigen Werte 
zweier Textvariablen. Textvariablen enden mit einem Dollar- 
zeichen $ (z.B. A$, B$, C$, ..., Al$, A2$, ...). Wie kann der 
Computer feststellen, ob mit dem Textvergleich W1$<W2$ in Zei- 
le 130 nun der Text "PREIS" kleiner ist (im Sinne von alphabe- 
tisch weiter vorne stehend) als der Text "DM-BETRAG"? Wie Zif- 
fern werden auch Buchstaben und Sonderzeichen intern im ASCII 
dargestellt (Abschnitt 1.2.3.1). Sie erhalten so je eine Code- 
nummer als Ordnungsnummer. Mit den ASCII-Codenummern 80 für P 
und 68 für D wird W1$<wW2$ bzw. "PREIS"<'DM-BETRAG" bzw. 80<68 
vom Computer als 'unwahr' erkannt; der Textvergleich führt so- 
mit nicht zur Programmverzweigung. 


Numerischer Vergleich: Textvergleich: 
1S02TEZT28ETHDNEe > MOSTESESZESNETHENGEET 
IOETUREZZESSSRSLLCHENGS IBOZERSNMI>SBUCHS. THEN Er 
POOIEERYSTEIEN Ges 160 IF A1$<B$. THEN.... 
Vergleich von Zahlen bzw. Vergleich von Text, Zei- 
Ziffern chen bzw. Strings. 


IF-Anweisung mit numerischem Vergleich und Textvergleich 


Text ist all!’ das, "was zwischen Gänsefüßchen steht"; andere 
Bezeichnungen für Text sind String, Zeichenkette oder Zeichen- 
daten. 

Beim Textvergleich kann wie beim numerischen Vergleich mit den 
Vergleichs-Operatoren =, <> (ungleich), >,<, >= (größer oder 
gleich) und <= gearbeitet werden. 


3.1.2.4 Fallabfrage 


Die Schachtelung von mehr als zwei Auswahlstrukturen wird auch 
dann schnell unübersichtlich, wenn IF..THEN..ELSE..-Konstruk- 
tionen gebildet werden. Zur Vereinfachung der Mehrseitigen 
Auswahl bietet BASIC deshalb die Fallabfrage mit 
der Anweisung ON..GOTO an. 
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Unser Programm MWST zeigt, daß über die e i ne Anweisung 
230 ON WAHL GOTO 240,250,260 


dr e i Verzweigungen ausgeführt werden: Für WAHL=1 wird nach 
Zeile 240 verzweigt, für WAHL=2 nach Zeile 250 und für WAHL=3 
nach Zeile 260. 

Da die Anweisung ON..GOTO in WAHL ganzzahlige Werte erwartet, 
müssen entsprechende Eingabefehler zuvor in den Zeilen 210 und 
220 abgewiesen werden. INT(WAHL) liefert den ganzzahligen Teil 
von WAHL (INT(3.45) ergibt 3; INT(2.9) ergibt 2). 


Struktogramm zu Programm MWST: 


Eingabe der Auswahl WAHL 


Mehrseitige Auswahl 
als 
Fallabfrage 
mit 3 Fällen 


ohne voll halb 


Ausgabe von Betrag BRUTTO 


Codierung zu Programm MWST: 


100 REM ====== Programm MWST 
110 PRINT "Bruttobetrag incl. Mehrwertsteuer." 
| 


120 REM ====== Vereinbarungsteil 

130 'NETTO, MWST, BRUTTO: DM-Betraege 

140 "WAHL: Hilfsvariable für Auswahl 
L} 


150 REM ====== Anweisungsteil 

160 INPUT "Welcher Nettobetrag"; NETTO 

170 PRINT "Ohne MWST 1" 

180 PRINT "Volle MWST ya 

190 PRINT "Halbe MWST 3" 

200 INPUT "Wahl 1, 2 oder 3"; WAHL 

210 IF WAHL<1 OR WAHL>3 THEN PRINT "... Intervall.": GOTO 170 
220 IF WAHL<>INT(WAHL) THEN PRINT "... ganzzahlig.": GOTO 170 
230 ON WAHL GOTO 240, 250, 260 . 

240 LET MWST=1 : GOTO 270 

250 LET MWST=1.14 : GOTO 270 

260 LET MWST=1.07 

270 LET BRUTTO = NETTO*MWST 

280 LET BRUTTO = INT(BRUTTO*100+.5)/100 

290 PRINT "Bruttobetrag:";BRUTTO; "DM." 

300 END 
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Zwei Ausführungen zu Programm MWST: 


Bruttobetrag incl. Mehrwertsteuer. Bruttobetrag incl. Mehrwertsteuer, 
Welcher Nettobetrag? 1500 Welcher Nettobetrag? 1500 

Ohne MWST 1 Ohne MWST 1 

Volle MWST 2 Volle MWST 2 

Halbe MWST 3 Halbe MWST 3 

Wahl 1, 2 oder 3? 2 Wahl 1, 2 oder 3? 3 

Bruttobetrag: 1710 DM. Bruttobetrag: 1605 DM. 


3.1.3 Programme mit Schleifen (Wiederholungsstrukturen) 


Programme mit Schleifen enthalten Wiederholungsstrukturen, die 
nach der allgemeinen Darstellung in Abschnitt 1.3.3.3 jetzt in 
Schneider-BASIC an Programmbeispielen veranschaulicht werden. 


3.1.3.1 Abweisende Schleife 


Das Programm KAPITALI druckt für das Kapital K und den Zins- 
satz P das verzinste Kapital zum Ende des 1., 2., 3. .. Jahres 
und endet, sobald sich das Anfangskapital verdoppelt hat. Wie 
jede Programmschleife besteht auch die Schleife von KAPITAL! 
aus zwei Teilen: aus einem Vorbereitungsteil (einmal durchlau- 
fen: Zeilen 170-190) und aus einem Wiederholungsteil (mehrmals 
durchlaufen: Zeilen 200-230). Im Ausführungsbeispiel wird die- 
ser Wiederholungsteil 9mal durchlaufen. 


Die Schleife in Programm KAPITAL] heißt abweisend, da 
die Schleifenabfrage 220 WHILE K<KE am Anfang des Wiederho- 
lungsteils steht und somit eine versuchte Wiederholung abwei- 
sen kann. Andere Bezeichnungen für diesen Schleifentyp sind: 
WHILE-DO-Schleife, So-lange-tue-Schleife, Schleife mit vorhe- 
riger Abfrage. 

Zur Steuerung der abweisenden Schleife stellt BASIC die An- 
weisung WHILE..WEND bereit. 


2ZOOSWHIEDREI RS Schleifenbeginn mit Schleifenabfrage 
Dee ... Wiederholungsteil der Schleife 
230 WEND Schleifenende 


Anweisung WHILE..WEND für die abweisende Schleife 
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Codierung zu KAPITAL!I: 


100 
110 


REM Programm KAPITAL1 
PRINT "Kapitalien bis zur Verdopplung." 
’ 


120 
130 
140 
150 


Vereinbarungsteil 
Kapital in DM 
Endkapital in DM 
Zinssatz in Prozent 


160 
170 
180 
190 


REM Anweisungsteil 

INPUT "Eingesetztes Kapital"; K 
INPUT "Jahreszinssatz a > 
LET KE=2*K 

’ 


200 
210 
220 
230 


WHILE K<KE 
LET K = K+K*P/100 
PRINT " ";K 

WEND 

’ 

240 


PRINT "Ende nach Verdopplung." : END 
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PAP zu KAPITALI: 


"Schleifenbeginn 


'Schleifenende 


Zwei Ausführungen zu Programm KAPITAL]: 


Kapitalien bis zur Verdopplung. 
Eingesetztes Kapital? 50000 
Jahreszinssatz 729 

54500 

59405 

64751.45 

70579.08 

76931.2 

83855 

91401.96 

99628.12 

108594 .7 
Ende nach Verdopplung. 


Struktogramm zu Programm KAPITAL!I: 


Anfangskapital K eintippen 
zinssatz P (in %) eintippen 
Endkapital KE als 2*K festlegen 


Solange K<KE ist, wiederhole 


verzinstes Kapital K aus: 
K = K+ (K*P / 100) 
Wert von K ausgeben 


Programmende mitteilen 


Kapitalien bis zur Verdopplung. 
Eingesetztes Kapital? 100000 
Jahreszinssatz ? 14 

114000 

129960 

148154 .4 

168896 

192541.5 

219497.3 
Ende nach Verdopplung. 


Vorbereitungsteil der 
Schleife: 
einmal durchlaufen 


Wiederholungsteil der 
Schleife: 
mehrmals durchlaufen 
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3.1.3.2 Nicht-abweisende Schleife 


Die Ausführungen der Programme KAPITAL2 und KAPITAL1 stimmen 
überein, nicht aber ihre Codierungen: Programm KAPITAL2 hat 
eine nicht - abwewisende Schleife, da bei der 
Codierung die Schleifenabfrage am Ende des Wiederholungsteils 
in Zeile 220 steht. Für diesen Schleifentyp stellt BASIC kei- 
ne gesonderte Anweisung bereit; deshalb müssen wir die Schlei- 
fe mittels IF..THEN.. steuern. Jede nicht-abweisende Schleife 
kann auch als abweisende Schleife programmiert werden. Da die- 
ser Schleifentyp in BASIC elegant mittels WHILE..WEND formu- 
liert werden kann, findet man den nicht-abweisenden Schleifen- 
typ nicht so häufig. 


Andere Bezeichnungen für die nicht-abweisende Schleife sind: 
REPEAT-UNTIL-Schleife, Wiederhole-bis-Schleife sowie Schleife 


mit nachheriger Abfrage. 
Vorbereitungsteil 
der Schleife 


Wiederholungsteil 
der Schleife 


Struktogramm zu Programm KAPITAl2: 


Anfangswerte K, P und KE 


= K+ (K* P/ 100) 


K 


K ausgeben 
wiederhole b!s K>=KE ist 


Programmende 


Codierung zu Programm KAPITAL2: 


100 REM ====== Programm KAPITAL2 
110 PRINT "Kapitalien bis zur Verdopplung." 
| 
120 REM ====== Vereinbarungsteil 
130 'K: Kapital in DM 
140 'KE: Endkapital in DM 
150 'P: Zinssatz in Prozent 
t 
160 REM ====== Anweisungsteil 
170 INPUT "Eingesetztes Kapital"; K 
180 INPUT "Jahreszinssatz "Sp 
190 LET KE=2*K 
’ 
200 LET K = K+K*P/100 '"Schleifenbeginn 
210 PRINT " ";K 
220 IF K<KE THEN 200 "Schleifenende 


t 


230 PRINT "Ende nach Verdopplung." : END 
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Ausführung zu Programm KAPITAL2: PAP zu KAPITAL2: 


Kapitalien bis zur Verdopplung. 
Eingesetztes Kapital? 100000 
Jahreszinssatz ?14 

114000 

129960 

148154..4 

168896 

192541.5 

219497.3 
Ende nach Verdopplung. 


3.1.3.3 Schleife mit Abfrage in der Mitte 


Anhand des Spielprogramms ZUFALL wollen wir den Schleifentyp 
"Abfrage in der Mitte des Wiederholungsteils' 

erklären. Bei diesem Schleifentyp befindet sich die Schleifen- 

abfrage 250 IF Z=D GOTO 280 inmitten des Wiederholungsteils, 

der von Zeile 230 bis Zeile 270 reicht. Da für diesen Schlei- 

fentyp keine eigene Steueranweisung existiert, müssen wir die 

Anweisungen IF..THEN verwenden. 


Zu den Programmstrukturen von ZUFALL: Aus dem Struktogramm er- 
sehen wir deutlich, daß innerhalb der Schleife noch eine Zwei- 
seitige Auswahlstruktur eingeschachtelt ist: Wenn 2>D, dann zu 
groß, sonst zu klein. Dieses Programm ZUFALL ist also bereits 
recht komplex mit drei Programmstrukturen: 


1. Zuerst Folgestruktur (170-220), dann 
2. Wiederholungsstruktur (230-270) mit eingeschachtelter 
3. Auswahlstruktur (260). 


zu den beiden Funktionen RND und INT in Zeile 220: 
RND (von Random=Zufall) erzeugt eine Zufallszahl, wobei hinter 
dem Wort RND in Klammern ein Zahlenausdruck oder nichts stehen 
kann (für 0 gibt RND stets dieselbe Zufallszahl an, sonst eine 
neue Zufallszahl zwischen 0 und 1). 

Die Funktion INT (von Integer=ganzzahlig) schneidet eventuell 
vorhandene Kommastellen ab. Die hier im Ausführungsbeispiel zu 
Programm ZUFALL vom Computer erzeugte Zahl 108 wird in Zeile 
220 wie in der Abbildung dargestellt in vier Schritten der Va- 
riablen D zugewiesen. 
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Problem: Eine Zahl aus den A auf N folgenden Zahlen 
zufällig erzeugen. 


220 LET D = INT(A*RND(A)+N) in vier Schritte aufgelöst: 


RND(A) ergibt 0.88249 

- A bzw. 10 mal 0.88249 ergibt 8.8249 

- N bzw. 100 plus 8.8249 ergibt 108.8249 
- INT(108.8249) ergibt schließlich 108 


Ausgabe: Zufallszahl 108 


Zufallszahl über die Funktionen RND und INT an einem Beispiel 


Die Anweisung RANDOMIZE legt eine Basiszahl als Anfangswert 
für die Erzeugung einer Serie von Zufallszahlen mittels RND 
fest. 

Dabei können wir die Basiszahl jeweils selbst eintippen, als 
Konstante programmieren oder in Abhängigkeit der vorgegebenen 
'Zeit-Systemvariablen' TIME (in 1/300 Sek.) zuweisen Die letz- 
te Möglichkeit ergibt stets eine 'neue' Zufallszahl bei jedem 
Aufruf der Funktion RND. 


Codierung zu Programm ZUFALL mit Funktion RND: 


100 REM ====== Programm ZUFALL 

110 PRINT "Raten einer Zahl mittels Funktion RND als Spielprogramm." 
' 

120 REM ====== Vereinbarungsteil 

130 '2: Jeweilige Benutzereingabe über Tastatur 

140 'D: Vom Computer erzeugte Zufallszahl 

150 '"A,N: Grenzen zur Auswahl einer Zufallszahl 

160 'V: Versuchszähler 
’ 

170 REM ====== Anweisungsteil 


180 PRINT "Eine Zahl wird zufaellig aus den A" 
190 PRINT "auf N folgenden Zahlen erzeugt." 
200 INPUT "Werte für A,N"; A,N 
210 RANDOMIZE 
220 LET D = INT(A*RND(A)+N) : LET V=0 

' 


230 INPUT "Ihre Zahl"; Z '"Schleifenbeginn 
240 LET V=V+l 

250 IF D=Z THEN GOTO 280 'Schleifenabfrage 
260 IF Z>D 


THEN PRINT "... zu groß." 
ELSE PRINT "... zu klein." 
270 GOTO 230 'Schleifenende 
t 


280 PRINT "Tre£ffer";D;"nach";V;"Versuchen." 
290 PRINT "Ende des Spiels." : END 
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210 RANDOMIZE Programm hält an und gibt aus: 
"Random number seed (-32768 to 32767)?" 
Wir müssen eine Basiszahl eingeben. 


210 RANDOMIZE 12000 Programm läuft durch und setzt die 
Basiszahl auf 12000. 


210 RANDOMIZE (VAL(RIGHT$ (TIME ‚2))) Programm läuft durch 
und nimmt als Basiszahl die letzten beiden 
Ziffern der Systemvariablen TIME (Format 


für TIME: Zeit seit Anschalten 
in 1/300 Sekunden). 


RANDOMIZE setzt eine Basiszahl für den Zufallszahlengenerator 


Struktogramm zu Programm ZUFALL: 


Anfangswerte A,N,D und V 
zahl Z eintippen 


Wiederholungsstruktur 


(Schleife mit Abfrage in 
wenn D=2 Schleifenende Auswahlstruktur 


(Zweiseitige Auswahl) 

in der Schleife einge- 
schachtelt, d.h. bei 
jedem Schleifendurchlauf 
auszuführen 


\ 


EN 


Treffer D und Versuche V 


Ausführung zu Proyjramm ZUFALL: 


Raten einer Zahl mittels Funktion RND als Spielprogramm. 
Eine Zahl wird zufaellig aus den A 
auf N folgenden Zahlen erzeugt. 
Werte für A,N? 10,100 

Ihre Zahl? 102 

... zu klein. 

Ihre Zahl? 106 

... zu groß. 

Ihre Zahl? 104 

... zu klein. 

Ihre Zahl? 105 

Treffer 105 nach 4 Versuchen. 

Ende des Spiels. 
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3.1.3.4 Zählerschleife 


Läßt man ein Testprogramm auf verschiedenen Computern laufen, 
um über den Vergleich der Ergebnisse deren Leistungen zu beur- 
teilen, spricht man von einem Benchmark - Test. 
Ein einfacher Test besteht darin, 2000 mal 10 durch 3 zu tei- 
len, um über die hierfür benötigte Zeit dann auf die Verarbei- 
tungsgeschwindigkeit des Computers bzw. der CPU zu schließen. 
Das folgende Programm BENCHMAR enthält dieses Testverfahren 
in einer sehr vereinfachten Form. 


Die in der Ausführung zu Programm BENCHMAR angegebene Zeit von 
8.186666 Sekunden wurde auf einem Schneider CPC 464 gemessen. 


Zählervariable als Laufvariable: 

In der Zeile 140 des Programms BENCHMAR findet sich eine Zäh- 
lerschleife, die sich genau 2000 mal wiederholt: die Variable 
zZ durchläuft die Werte 1,2,3,...,2000 und heißt deswegen 
auch Laufvariab le. Da 2 dabei jeweils um 1 hochge- 
zählt wird, nennt man sie Zählervariable und kurz Zähler. 
BASIC stellt die Anweisungen FOR und NEXT bereit, um die 
zählerschlei fe zu kontrollieren. 


Statt in einer Zeile kann man die Zählerschleife von Programm 
BENCHMAR auch wie in der Abbildung wiedergegeben in drei Zei- 
len schreiben. 


140 FOR 2=1 TO 2000 -Für Z, das von 1 bis 2000 laufen soll 
(2 durchläuft die Werte 1,2,3,...,2000) 


141 LET T=10/3 -Bei jedem Durchlauf 10/3 nach T bringen 
(nur eine Anweisung im Schleifenkörper) 


142 NEXT 2 -Z um 1 erhöhen und in die Zeile mit der 
FOR-Anweisung (hier 140) zurückgehen 


zählerschleife mit FOR und NEXT an einem Beispiel 


Da die Überprüfung der Schleife am Anfang in der FOR-Anweisung 
stattfindet, wird eine Schleife mit FOR X=5 TO 5 kein einzi- 
ges Mal durchlaufen. 


Zur Darstellung der Zählerschleife als PAP: 

Der PAP zu BENCHMAR zeigt die Sinnbilder der Zählerschleife: 
zwei "abgeschrägte' Rechtecke für den Schleifenanfang (FOR) 
und für das Schleifenende (NEXT). 


Zur Darstellung der Zählerschleife als Struktogramm: 

Die Zählerschleife ist eine abweisende Schleife. Deshalb wird 
sie als Struktogramm genauso wie die abweisende Schleife (vgl. 
Abschnitt 3.1.3.1) dargestellt. 
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Codierung zu Programm BENCHMAR: PAP zu Programm BENCHMAR: 


100 REM ====== Programm BENCHMAR 

110 PRINT "Test zur Verarbeitungsgeschwindigkeit." 
120 PRINT T;" - Testbeginn (bitte warten)" 

130 LET ZEIT=TIME 

140 FOR Z = 1 TO 2000 : LET T=10/3 : NEXT Z 

150 LET ZEIT=TIME-ZEIT 

160 PRINT T;" - Testende nach" ;ZEIT/300; "Sekunden." 
170 END 


Programm BENCHMAR auf einem 
Schneider CPC 464 getestet: 


RUN 

Test zur Verarbeitungsgeschwindigkeit. 

0 - Testbeginn (bitte warten) 

3.333333 - Testende nach 8.186666 Sekunden. 


Struktogramm zu Programm BENCHMAR: 


Ausgabe: Texthinweise 


ZEIT=TIME ,„ d.h. die Anzahl der Sekunden seit dem Start 
der Variablen ZEIT zuweisen 


zählerschleife: Wiederhole für Z von 1 bis 2000 


Berechnung: 


ZEIT=TIME -ZEIT, d.h. die während den 2000 Durchläufen 
der Zählerschleife abgelaufenen Sekunden 
der Variablen ZEIT zuweisen. 
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10 FOR Z2=10 TO 100 STEP 30 Laufvariable Z mit AW=10, EW=100 


207 PRINNZ und SW=30. 4malige Wiederholung. 
30 NEXT 2 Ausgabe von 10, 40, 70 und 100. 
10 EOR 2=3 TO -6 STEP 2 Laufvariable Z mit AW=3, EW=-5 

20 PRINT 2 und SW=-2. 5malige Wiederholung. 
30 NEXT 2 Ausgabe von 3, 1, -1, -3 und -5. 


AW=Anfangswert, EW=Endwert, SW=Schrittweite der Laufvariablen 


Zwei Zählerschleifen der Form FOR Z=AW TO EW STEP SW 


Im folgenden sind einige Beispiele für gültige FOR-Anweisungen 
wiedergegeben (Werte der Laufvariablen in Klammern): 


- FOR I=100 TO 102 (100, 101, 102) 

- FOR S1=3 TO EWER (3, 4 bei EWER=4) 

- FOR D=0 TO 6 STEP 2 (0, 2, 4, 6) 

- FOR A=9 TO 13 STEP 3. (9, 12) 

- FOR I=8 TO 6 STEP -1 (8, 7, 6) 

- FOR Z=1 TO 0.8 STEP *0.05 (1, 0.95, 0.9, 0.85, 0.8) 
- FOR A=1 TO 1 (1) 


Mit STEP kann man dabei für die Laufvariable eine von 1 abwei- 
chende Schrittweite angeben. Ist STEP negativ, so muß der An- 
fangswert natürlich größer sein als der Endwert. 


Schneider BASIC stellt zwei Anweisungen zur Schleifensteuerung 
zur Verfügung: WHILE..WEND und FOR..NEXT . Die Überprüfung 
auf Schleifenende wird stets zu Be ginn der Wiederholung 
vorgenommen, also in WHILE bzw. in FOR. 


Anweisungen zur Schleifensteuerung 


ee Er 


WHILE..WEND für die FOR..NEXT für die 
abweisende Schleife zählerschleife: 
100 WHILE A=5 100SEOREZ=ZIETOEIO 
... (Wiederholung) ... (Wiederholung) 
200 WEND 200 NEXT Z 

Solange A gleich 5 ist Bürs 22vonsleb1 sw U0 
wiederhole wiederhole 


Anweisungen WHILE..WEND und FOR..NEXT 
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3.1.3.5 Unechte Zählerschleife 


Eine unecht e zZählerschleife liegt vor, wenn mit den 
Anweisungen FOR-NEXT überhaupt nicht gezählt werden soll, d.h. 
wenn diese beiden so bequem verwendbaren Anweisungen 'nur' zum 
Zwecke der Schleifensteuerung programmiert werden. Das folgen- 
de Programm FAHRTENB demonstriert das anhand einer Kfz-Benzin- 
abrechnung. 


zur Codierung von Programm FAHRTENB: 

In der Zählerschleife (Zeilen 230 - 330) wird in der Anweisung 
230 FOR 2 = 1 TO 999 mit 999 ein normalerweise nicht erreich- 
barer Endwert angegeben, weil der eigentliche Schleifenausgang 
in Zeile 260 vorgesehen ist: Bei Eingabe von Null (K1=0?) wird 
die Laufvariable auf 999 gesetzt (LET 2=999) und nach 330 zur 
NEXT-Anweisung verzweigt. Ebenso könnte die Schleife durch ei- 
ne Verzweigung 260 IF K1=0 THEN 340 direkt verlassen; diese 
Möglichkeit widerspricht jedoch dem Prinzip der strukturierten 
Programmierung, für jede Programmstruktur je einen Ein- 
gang und Ausgang vorzusehen (vgl. Abschnitt 1.3.7.4). 


Codierung zu Programm FAHRTENB mit einer Schleife in 230-330: 


100 REM ====== Programm FAHRTENB 

110 PRINT "Kf£fz-Benzinverbrauchswerte ermitteln" 

120 PRINT "aus Eintragungen im Fahrtenbuch." : PRINT 
r 


130 REM ====== Vereinbarungsteil 

140 'Kl: km-Stand laut fahrtenbuch 

150 'Ll: Literverbrauch laut Fahrtenbuch 

160 'DI: DM-Betrag für Tanken laut Fahrtenbuch 
170 'V1: Verbrauch in Liter je 100 km 


180 'K,L,D,V,B: Entsprechende Gesanmtwerte 
190 'Z: Laufvariable für Zählerschleife 
' 
200 REM ====== Anweisungsteil 
210 INPUT "Anfangskilometerstand (Tank voll)"; KO 
220 LET K=0: LET L=0: LET D=0 
t 


230 FOR Z=1 TO 999 '"Schleifenbeginn 
240 PRINT Z;". Tanken: km-Stand, Liter, DM (O=Ende)" 
250 INPUT " "ts K1,L1,D1 


260 IF Kl=0 THEN LET Z=999: GOTO 330 "Signal für Schleifenende 
270 LET Kl=Kl-KO : K=K+Kl : L=L+L1 : D=D+Dl 

280 LET V1=100*L1/Kl 

290 PRINT "Verbrauch: "s;V1;"Liter/100 km" 

300 LET Bl=D1/L1 ” 

310 PRINT "Benzinpreis: '";Bl;"DM/Liter" 

320 LET KO=KO+Kl : PRINT 

330 NEXT Z "Schleifenende 


340 LET V=100*L/K : LET B=D/L : PRINT 

350 LET M$="\ VRRAEN a 
360 PRINT USING M$; "Kilometer gesamt'",K,'"km" 

370 PRINT USING M$; "Ausgabe gesamt" ,D,"DM'" 

380 PRINT USING M$; "Verbrauch (Mittel)",V,"Liter/100 km" 
390 PRINT USING M$; "Benzinpreis (Mittel)",B,"DM/Liter" 
400 END 
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Ein Ausgang (Zeile 230): Zwei Ausgänge (260, 230): 


230EE0R2272-211E705999 230EE0R2272- 2121702999 
260 TEERT-0ZTHENZZ-999:ZG0707330 260 IF K1=0 THEN 340 


330 NEXT 2 330 NEXT Z 
340 or SA0 me 
gut: ein Eingang, ein Ausgang schlecht: unklare Struktur 


Unechte Zählerschleife auf zwei Arten programmiert 


Das Struktogramm verdeutlicht die im Programm FAHRTENB vorlie- 
genden Programmstrukturen: 

In einer Zählerschleife (230 FOR) ist eine Zweiseitige Auswahl 
(260 IF) geschachtelt angeordnet. Bei jedem Schleifendurchlauf 
wird auch diese Auswahlstruktur durchlaufen. 


Ausführung zu Programm FAHRTENB: PAP zu FAHRTENB: 


Kfz-Benzinverbrauchswerte ermitteln 
aus Eintragungen im Fahrtenbuch. 


Anfangskilometerstand (Tank voll)? 60000 
l . Tanken: km-Stand, Liter, DM (O=Ende) 
? 60100 , 10 , 14 
Verbrauch: 10 Liter/100 km 

Benzinpreis: 1.4 DM/Liter 


2 . Tanken: km-Stand, Liter, DM (O=Ende) 
? 60260 , 20 , 29 
Verbrauch: 12.5 Liter/100 km 
Benzinpreis: 1.45 DM/Liter 


3 . Tanken: km-Stand, Liter, DM (O=Ende) 
? 0,0,0 


Kilometer gesamt 260.00 km 

Ausgabe gesamt 43.00 DM 

Verbrauch (Mittel) 11.54 Liter/100 km 
Benzinpreis (Mittel) 1.43 DM/Liter 


Zur Ausgabeformatierung wird im Programm 
FAHRTENB die Anweisung PRINT USING verwendet. Dabei dient die 
Variable M$ als Druckmaske bzw. Formatstring 
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Struktogramm zu Programm FAHRTENB: 


Anfangskilometerstand bei vollem Tank KO eingeben 
Anfangswerte festlegen: K=0, L=0, D=0 


Für Z von 1 bis 999 wiederhole 


Km-Stand Kl, Literverbrauch Li und DM-Betrag DI eingebe 


Berechnung von K, L, Laufvariable Z auf 
D, VI, Bl und KO Endwert 999 setzen 


Ausgabe von Verbrauch V1 
und Benzinpreis BI] 


Berechnung von V und B und Ausgabe der gesuchten Größen 


Zur Unterscheidung von offenen und geschlossenen Schleifen: 

Zu Beginn jeder Ausführung des Programmes FAHRTENB ist voll- 
kommen offen, wie oft die Schleife durchlaufen wird. Man nennt 
diese Schleife deshalb auch eine o f fe ne Schleife. Dem- 
gegenüber wurde Programm BENCHMAR als geschlossene 
Schleife jeweils immer 2000 mal durchlaufen. Der Typenbildung 
von 'offenen und geschlossenen Schleifen' liegt also die Zahl 
der Schleifendurchläufe als Unterscheidungskriterium zugrunde. 


3.1.3.6 Schachtelung von Zählerschleifen 


Mehrere Programmstrukturen können entweder hintereinander oder 
geschachtelt in e i ne m Programm angeordnet sein (vgl. Ab- 
schnitt 1.3.3.5). Bei der Schachtelung von Zählerschleifen ist 
zu beachten, daß die zuerst begonnene äußere Schleife zuletzt 
beendet wird, daß die innere - Schleife somit vollständig einge- 
schachtelt ist. 

In der Abbildung sind zwei geschachtelte Schleifen wiedergege- 
ben: 

Eine äußere Schleife mit der Laufvariablen X (als X-Schleife 
bezeichnet) schachtelt eine innere Schleife mit der Laufvari- 
ablen Y ein. Lassen wir das Programm laufen, wird in der Zeile 
400 das Wort TEST 12 mal (3*%4=12) ausgegeben; neben dem Wort 
TEST erscheinen zur Kontrolle die aktuellen Werte der Laufva- 
riablen X und Y mit 11,12,13,14,21,22,23,24,31,32,33,34. 
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300BEORSEX-IETOZ3 300SEORZX=SIZT073 

3L0OMEORZYSIETOZA 3107 EOR-y=12T074 

400 PRINT "TEST";X;Y 400 PRINT "TEST"; 

SIVENEXTEY 590 NEXT X 

600 NEXT X 600 NEXT Y 
vollständige Schachtelung falsch: teilweise S 


IC und MBASIC 


xX;Y 
läuft nicht 


chachtelung 


Schachtelung mit innerer Y-Schleife und äußerer X-Schleife 


Als 
wir 
Die 
für 
tel 
zah 
ach 
310 


Beispiel zur Schachtelung von Zählerschleifen 
das Programm RATENSPA: 


betrachten 


innere Schleife des Programms hat eine Laufvariable I für 


die Jahre (im Ausführungsbeispiel I=1,2,3,4) 
t eine äußere Schleife mit J für die Anzahl der 
lungen (im Beispiel J=1,2) ein. Die Beispielta 


und schach- 
jährlichen 
belle weist 


t Ausgabezeilen auf, da die PRINT USING-Anweisung in Zeile 


genau 6 mal (4*2=8) durchlaufen wird. 


Codierung zu RATENSPA (Schleifen in Zeilen 280-330): 


100 
110 
120 


130 
140 
150 
160 
170 
180 
190 
200 
210 


220 
230 
240 
250 
260 
270 


280 
290 
300 
310 
320 
330 


340 


REM ====== Programm RATENSPA 

PRINT "Entwicklung des Guthabens beim Ratensparen" 
PRINT "als Übersichtstabelle." 

’ 


REM ====== Vereinbarungsteil 

'S: Sparrate in DM gleichbleibend 

'Z: Anzahl der Zahlungen pro Jahr 

'V: Vertragslaufzeit des Ratensparens 

'P: Jahreszinssatz in % 

: Zinsfaktor aus der Zinsformel 

'K: Kapital als neues Endguthaben 

'I: Laufvariable für äußere Jahresschleife 
'J: Laufvariable für innere Monatsschleife 


REM ====== Anweisungsteil 
INPUT "Sparrate, Zahlungen/Jahr"; S,Z 
INPUT "Vertragslaufzeit (Jahre)"; V 


INPUT "Zinssatz (% pro Jahr) Vs: ‚P 
LET K=0 : LET F=1+P/Z/100 
PRINT : PRINT " Jahr Monat Guthaben" 
t 
FOR I = 1 TO V "Beginn der äußeren Schleife 
FOR J = 1T02 "Beginn der inneren Schleife 
LET K=(K+S)*F 
PRINT USING " ## ## HRRHHHHR HE", I,J,K 
NEXT J "Ende der inneren Schleife 


NEXT I "Ende der äußeren Schleife 
LI 


PRINT "Ende." : END 
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Struktogramm zu Programm RATENSPA: 


Anfangswerte S,Z,V,P,K,F setzen 


Überschriftzeile ausgeben 


Für I von 1 bis V wiederhole Beginn äußere Schleife 
Für J von 1 bis Z wiederhole Beginn innere Schleife 
Guthaben K ermitteln 
und Zeile ausgeben 


Ende beider Schleifen 


Zwei Ausführungen zu Programm RATENSPA: 


Entwicklung des Guthabens beim Ratensparen Schleifen 3%4=-12 mal 
als Übersichtstabelle. durchlaufen 

Sparrate, Zahlungen/Jahr? 100,4 

Vertragslaufzeit (Jahre)? 3 

Zinssatz (% pro Jahr) ? 10 


Jahr Monat Guthaben 
j 1 102.50 
1 2 207.56 
1 3 315.25 
l 4 425.63 
2 l 538.77 
2 2 654.74 
2 3 773.61 Entwicklung des Guthabens beim Ratensparen 
2 4 895.45 als Übersichtstabelle. 
3 1 1020.34 Sparrate, Zahlungen/Jahr? 200,2 
3 2 1148.35 Vertragslaufzeit (Jahre)? 4 
3 3 1279.56 Zinssatz (% pro Jahr) 4.12 
3 4 1414.04 
Ende. Jahr Monat Guthaben 
1 1 212.00 
1 2 436.72 
2 l 674.92 
2 2 927.42 
3 1 1195.06 
Schleifen 4*2=8 mal 5 - ee 
durchlaufen 4 2 2098.26 
Ende. 


Die Vorschriften für die Schachtelung von Zählerschleifen mit 
FOR..NEXT gelten entsprechend auch für die Schachtelung von 
abweisenden Schleifen mit WHILE..WEND. 
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3.1.4 Programm mit Unterprogramm 


Der Grundsatz "... teile und herrsche" gilt auch bei der Pro- 


grammentwicklung. Es ist zumeist vorteilhaft, einen Programm- 
komplex in mehrere Unterprogramme aufzuteilen. 


- Ein in Unterprogramme gegliedertes Programm ist stets besser 
lesbar als ein ungegliedertes und oft langes Gesamt- 
programm. 

- Einen an mehreren Stellen im Programm benötigten bzw. aufge- 
rufender Ablauf muß man nur einma |1 als Unterprogramm 
codieren. 

- Oft benötigte Verfahren können gesammelt und bei Bedarf im 
jeweiligen neuen Programm wie Bausteine eingesetzt 
werden. 

- Bei größeren Vorhaben können Teilabläufe von verschiedenen 
Personen getrennt entwickelt und dann zu einem Pro- 
grammkomplex zusammengesetzt werden. 


Vier Vorteile bei der Bildung von Unterprogrammen 


In BASIC kann man Unterprogramme entweder durch die Anweisun- 
gen GOSUB und RETURN verwirklichen oder durch Funktionen. Wir 
wenden uns zunächst den Befehlen GOSUB und RETURN zu. 


3.1.4.1 Unterprogramme mit GOSUB und RETURN 


Programm DEMO-UPR demonstriert, wie ein einma | codier- 
tes Unterprogramm (Zeilen 1000, 1010) zwei ma | aufgeru- 
fen wird (Zeilen 140 und 180). Zu trennen ist also die Unter- 
programmcodierung (ein oder mehrere Zeilen mit RETURN am Ende) 
einerseits und der Unterprogrammaufruf (durch GOSUB) anderer- 
seits. In BASIC ist das Unterprogramm immer Teil des Hauptpro- 
gramms. 

Zweck des Unterprogramms ist es, die jeweilige Tastatureingabe 
um 10 zu erhöhen. Da sich die Eingabe im Hauptprogramm zuerst 
in X und dann in Y befindet, ist vor jedem Unterprogrammaufruf 
die Eingabe einer Variablen namens PAR (Parameter) zuzuweisen, 
um dann das Unterprogramm mit GOSUB 1000 aufzurufen, die Er- 
höhung mit 1000 LET PAR=PAR+10 auszuführen, mit 1010 RETURN 
in die jeweilige Folgezeile 150 bzw. 190 zurückzukehren und im 
Hauptprogramm fortzufahren. Die etwas umständliche Anweisungs- 
folge "LET PAR=X : GOSUB 1000 : LET X=PAR' ist erforderlich, 
da ein Unterprogrammaufruf wie etwa 'GOSUB(X) 1000' mit einer 
tatsächlichen Parameterübergabe in BASIC nicht Standard ist. 


Im Vereinbarungsteil des Programms DEMO-UPR wird neben den Pa- 
rametern X, Z und PAR das Unterprogramm namens ERHOEHEN ange- 
führt. Insbesondere bei komplexen Programmen kann man sich so 
rasch über deren Gliederung informieren. 


3.1 


Grundlegende Programmstrukturen an Beispielen 149 


Cod 


ierung zu Programm DEMO-UPR: 


REM ====== Programm DEMO-UPR 
PRINT "Ein Unterprogramm zweimal im Hauptprogramm aufrufen." 
t 


REM ====== Vereinbarungsteil 

ME Aktuelle Parameter 

" PAR: Formaler Parameter 

' ERHOEHEN: Unterprogramm ab Zeile 1000 
rt 


REM ====== Anweisungsteil 

INPUT "Wert von X eintippen"; X 

"zoik ERSTER UNTERPROGRAMMAUFRUF * #3 takakatsteskatateik 
LET PAR=X : GOSUB 1000 

LET X=PAR : PRINT "X um 10 erhöht:"; X 

"ak ZWEITER UNTERPROGRAMMAUFRUF #33karskaeakakakatakck 
INPUT "Wert von Y eintippen"; Y 

LET PAR=Y : GOSUB 1000 


190 LET Y=PAR : PRINT "Y um 10 erhöht:"; Y 
200 PRINT "Ende des Hauptprogramms." : END 
’ 
210 '*** Unterprogramm ERHOEHEN *eRktektestgsslegtelsgieislsgislsigigleinr 
1000 LET PAR = PAR + 10 
1010 RETURN 
101] | F Arakateeaeaiefesietesfteetetefetefestefestefetalestetefestefatefakstfetefafsieiefaiefaieteiafesteteietefeiefeiefenk 
Ausführung zu Programm DEMO-UPR: Hauptprogramm 


Ein Unterprogramm zweimal im Hauptprogramm aufrufen. 


Wert 
X um 
Wert 


Y um 
Ende 


PAP 


Das 
aufg 


von X eintippen? 34 

10 erhöht: 44 

von Y eintippen? 99999 
10 erhöht: 100009 


des Hauptprogramms. 
Fr 
zu Programm DEMO-UPR: 1 Aufzuf. 
Bi 
BG 
Fr 
ag 
Unterprogramm Pi 
Pr 
BG 
r 
r 
Fr 
4 
2. Aufruf 


Unterprogramm wird zweimal im Hauptprogramm 
erufen. 
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Die Anweisung 140 GOSUB 1000 merkt sich die Folgezeile 150 als 
Rückkehradresse und verzweigt nach Zeile 1000 zum dort anfan- 
genden Programmteil. Die Anweisung 1010 RETURN beendet das Un- 
terprogramm und verzweigt zu der (zuletzt) gemerkten Rückkehr- 
adresse. Beispiele für Anweisungen zum Unterprogrammaufruf: 


- 140 GOSUB 1000 Unbedingter Aufruf 

- 140 IF A=3 THEN GOSUB 1000 Numerisch bedingter Aufruf 
- 140 IF B$="JA'" THEN GOSUB 1000 Text-bedingter Aufruf 

- 140 ON C GOSUB 1000,2000,3000 Fallabfrage mit Aufruf 


(für C=1,2 bzw. 3 Unter- 
progr. 1000,2000 bzw. 3000) 


Vier Anweisungsbeispiele zum Unterprogrammaufruf 


3.1.4.2 Standardfunktionen und selbstdefinierte Funktionen 


Funktionen sind besondere Unterprogramme, die stets mit ihrem 
Namen aufgerufen werden. Für häufig wiederkehrende Probleme 
sind Funktionen standardmäßig vorgegeben und für spezielle Be- 
nutzerprobleme können sie von diesem selbst definiert werden. 


VORGEGEBENE STANDARDFUNKTIONEN AUFRUFEN: 
- Numerische Funktionen: 
Ganzzahl: INT(3.8) ergibt 3, INT(2.1111) ergibt 2 
Betrag: ABS(-2) ergibt 2, ABS(2) ergibt 2 
Vorzeichen: SGN(-2) ergibt -1, SGN(2) ergibt +1 
zufallszahl: RND ergibt z.B. 0.8724 
Weitere: ATN, COS, EXP, LOG, SIN, SQR, TAN 


- String-Funktionen bzw. Text-Funktionen: 
ASC, CHR$, INSTR, LEFT$, LEN, MID$, STR$, RIGHT$ und VAL 


- System-Funktionen: 
FRE, PEEK, POKE, VARPTR und USR 


FUNKTIONEN SELBST DEFINIEREN UND AUFRUFEN: 


- Definition der Funktion mit Anweisung DEF FN ... 


- Aufruf der Funktion durch FN ... 


Zwei Arten von Funktionen 


Das in Klammern hinter der Funktion geschriebene Argument kann 
eine Konstante (INT(9.7)), eine Variable (INT(Z)) oder ein be- 
liebiger Ausdruck sein (INT(9.7+2)). 
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Die Definition und den Aufruf einer Funktion wollen wir an ei- 
nem einfachen Beispiel erklären: 

Das Programm DEMO-FUN stimmt in seiner Ausführung mit Programm 
DEMO-UPR überein, nicht aber in der BASIC-Codierung: Das in 
DEMO-UPR mittels GOSUB und RETURN geschriebene Unterprogramm 
wird in DEMO-FUN über eine benutzerdefinierte Funktion mittels 
DEF FN programmiert. In der hierfür vorgesehenen Anweisung 


140 DEF FN ERHOEH(PAR)=PAR+10 


schreiben wir hinter FN den Funktionsnamen ERHOEH, gefolgt 
von einem Parameter PAR, dem das Ergebnis von PAR+10 zugewie- 
sen wird. Es ist wichtig, daß zwischen DEF und PAR eine Leer- 
stelle steht. 

Das Programm DEMO-FUN enthält die drei Variablen bzw. Parame- 
ter X, Y und PAR. PAR vertritt als formaler Parameter 
beim Unterprogrammaufruf den entsprechenden aktuellen 
Parameter X. 

Beim ersten Funktionsaufruf durch 170 FN(ERHOEH(X) ist X der 
aktuelle und PAR der formale Parameter, beim zweiten Aufruf 
ruf durch 200 FN ERHOEH(Y) hingegen ist Y der aktuelle und 
PAR der formale Parameter. 


Codierung zu Programm DEMO-FUN: 


100 REM ====== Programm DEMO-FUN 
110 PRINT "Eine Funktion im Hauptprogramm einmal definieren" 
120 PRINT "und dann zweimal aufrufen." 


130 "*>kk FUNKTION DEFINIEREN ?33tkakateksieaieateatesteatefeafeajeaieafeafeafeafeafesiefeafefeafeafeafe sfsfesfeafeafeafeake 


140 DEF FN ERHOEH(PAR) = PAR + 10 
141" Aakeaeakeateafaleeafefeafalefeafefeafeafeajsfeafafeafeafeaeafeaeafeeafeeafafefeafesfeakefeajefeafesfeafesfeafsfesfajefesjejesfejefkafienke 


150 "*** ERSTER FUNKTIONS-AUFRUF *33k3k3kaskatestakskkataksisietck 
160 INPUT "Wert von X";X 

170 PRINT "X um 10 erhöht ergibt"; FN ERHOEH(X) 

180 '*#* ZWEITER FUNKTIONS-AUFRUF ***totsseseskiasiir 
190 INPUT "Wert von Y";Y 

200 PRINT "Y um 10 erhöht ergibt"; FN ERHOEH(Y) 

210 PRINT "Ende." : END 


Ausführung zu Programm DEMO-FUN: 


Eine Funktion im Hauptprogramm einmal definieren 
und dann zweimal aufrufen. 

Wert von X? 34 

X um 10 erhöht ergibt 44 

Wert von Y? 99999 

Y um 10 erhöht ergibt 100009 

Ende. 
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Im ASCII-Code haben die Großbuchstaben die Codezahlen 65 - 90 
und die Kleinbuchstaben die Codezahlen 97 - 122, d.h. genau um 
32 weniger. 

Die Funktion FNGROSS$ nutzt diese Differenzbildung von 32 , um 
eingetippte Buchstaben von Klein- ind Großschreibung umzuwan- 
deln. 


Der Funktionsaufruf PRINT FNGROSS$('"m" läuft wie folgt ab: 

- Kleinbuchstabe "m" als aktueller Parameter in 2$ 

- Funktionsaufruf ASC("m") ergibt die ASCII-Codezahl 109 

- Subtraktion 109-32 ergibt 77 

- Funktionsaufruf CHR$(77) ergibt den Großbuchstaben "M" als 
das der Codezahl 77 entsprechende Zeichen 


- "M" wird über PRINT ausgegeben 


Die Benutzerfunktion FNGROSS$ ruft also zwei Standardfunktio- 
nen auf: ASC() zur Angabe der Codezahl und CHR$() zur Angabe 
des Zeichens. Auf diese Funktionen gehen wir in Abschnitt 3.5 
ausführlich ein. 


Definition der Funktion: 


100 DEF FNGROSS$(2$) = CHR$(ASC(2$)-32) 


Zweimaliges Aufrufen der Funktion: 


110 PRINT FNGROSS$ ("m") ergibt Großbuchstabe "M'" 
120 PRINT FNGROSS$("k") ergibt Großbuchstabe "K" 


Bildung von Großbuchstaben durch die String-Funktion FNGROSS$ 
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[50 Prog bern nt erogammeriden | mon | 
(37 Testen aenamm | 0 | 
[26 Sun cin, chen u ginn en Dun | as | 
Ponseiun ianrnsn | ar 
BEE 
BEI 
BE 
BEI 
BE 


\ 
N 
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3.2.1 Strukturiert programmieren: Menütechnik 


Bei der Ausführung des Programms MENUE werden dem Benutzer 
sieben Wahlmöglichkeiten am Bildschirm angeboten - vergleich- 
bar mit den Gängen eines Menüs auf der Speisekarte. Aus diesem 

Grunde spricht man in der DV vonder Menütechnik. 

Folgende Punkte kennzeichnen diese Technik: 

(1) Auswahl einer Tätigkeit aus dem Menü: 

Das Menü wird am Bildschirm gezeigt, bis der Benutzer eine 
gültige Auswahl getroffen hat (Unterprogramme 'GOSUB 1000' 
und 'GOSUB 2000' in Programm MENUE). 

(2) Ausführung dieser Tätigkeit in einem Unterprogramm: 

Über eine Mehrseitige Auswahl als Fallabfrage wird ein Un- 
terprogramm aufgerufen (Anweisung 140 ON M GOSUB ...) , um 
die gewählte Tätigkeit dann auszuführen. 

(3) wiederholtes Menüangebot mit Programmende über das Menü: 
Nach dieser Ausführung wird das Menü erneut gezeigt. Abge- 
brochen wird der Programmlauf stets über das Menü (Wahl 7) 
bzw. über das Steuerprogramm (hier Zeile 150), nicht aber 
über ein Unterprogramm. 


Die sieben Tätigkeiten KONTOSTAND, EINZAHLUNG,.. werden in den 
Zeilen 1030-1040 unter DATA gespeichert. Soll das Menüprogramm 
für andere Zwecke verwendet werden, müssen ausschließlich die- 
se Zeilen geändert werden. 


Die Anweisungen READ mit DATA dienen der Speicherung programm- 
interner Daten. Jede READ-Anweisung rückt dabei einen Lese- 
zeiger um 1 weiter. Die Anweisung RESTORE setzt den Lesezeiger 
auf Ausgangsposition 1 zurück. Die Daten können auf beliebig 
viele DATA-Anweisungen verteilt werden; wesentlich ist allein 
die Reihenfolge: 10 DATA 4,7 entspricht 10 DATA 4 11 DATA 7. 


1000 READ N Nach N wird die Ziffer 7 eingcelcsen. 
NOTOERORSE-IETOEN Nach M$ werden 7 Textworte eingelesen 
1011 READ M$(I) (M$ ist ein String-Array). 


LONZENEXTIT 
Inhalt von M$ 


1030 DATA 7, KONTOSTAND KONTOSTAND 

1031 DATA EINZAHLUNG, AUSZAHLUNG EINZAHLUNG 

1032 DATA NEUES KONTO, KONTO LOESCHEN AUSZAHLUNG 

1033, DATA GESAMTLISTE, PROGRAMMENDE NEUES KONTO 
KONTO LOESCHE 

READ weist einer oder mehreren Variablen GESAMTLISTE 


Werte zu, die unter DATA gespeichert sind. PROGRAMMENDE 
Anweisungen READ und DATA zur Datenspeicherung im Programm 


Die Anweisung 

140 ON M GOSUB 3000,4000,5000,6000,7000,8000,9000 
ruft für M=1 das Unterprogramm ab Zeile 3000 auf, für M=2 das 
Unterprogramm ab Zeile 4000 usw, wobei als Rückkehradresse für 
die RETURNs die Zeile 140 gespeichert wird. Durch die Fehler- 
abfragen in Zeile 2040-2050 wird sichergestellt, daß in M tat- 
sächlich nur einer der ganzzahligen Werte 1,2,....,7 vorliegt. 
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In Zeile 2030 wird die Menü-Auswahl des Benutzers bewußt nicht 


einer numerischen 
zugewiesen. Damit 
lerhafter Eingabe 
VAL(W$) wird der 


Variablen W, 


sondern einer Textvariablen W$ 


soll ein "Aussteigen' des Computers bei feh- 
Mit dem Funktions-Aufruf 
Text in W$ in einen Zahlenwert umgewandelt. 


verhindert werden. 


PAP zu MENUE: 


Codierung zu Programm MENUE: 


100 REM ====== Programm MENUE 
110 PRINT "Menue-Demonstration mit Wahl in DATA." 
120 GOSUB 1000 


130 

140 

150 

160 

1000 
1010 
1020 
1030 
1040 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
3000 
4000 
5000 
6000 
7000 
8000 
9000 


GOSUB 2000 

ON M GOSUB 3000,4000,5000, 6000, 7000,8000, 9000 

IF M=7 THEN PRINT "Ende." : END 

INPUT "Weiter mit RETURN";W$ : CLS : GOTO 130 
READ N: DIM M$(N) 'Menue-Angebot nach M$ lesen 
FOR I=1 TO N: READ M$(I): NEXT I 

RETURN 
DATA 7,KONTOSTAND, EINZAHLUNG, AUSZAHLUNG, NEUES KONTO 
DATA KONTO LOESCHEN, GESAMTLISTE, PROGRAMMENDE 
PRINT "----- Menue-Angebot-----" 'Menue zeigen 
FOR I=1 TO N: PRINT I;" ":M$(I) : NEXT I 

11} 


INPUT "Ihre Menue-Auswahl"; W$: LET M=VAL(W$) 

IF M<>INT(M) THEN PRINT "...ganzzahlig": GOTO 2000 
IF M<1 OR M>N THEN PRINT "...ausserhalb'": GOTO 2000 
RETURN 

PRINT "Unterprogramm ";M$(M): RETURN 

PRINT "Unterprogramm ";M$(M): RETURN 

PRINT "Unterprogramm '"';M$(M): RETURN 

PRINT "Unterprogramm ";M$(M): RETURN 

PRINT "Unterprogramm ";M$(M): RETURN 

PRINT "Unterprogramm ";M$(M): RETURN 

PRINT "Unterprogramm ";M$(M): RETURN 


Ausführung zu Programm MENUE: 


Menue-Demonstration mit Wahl in DATA. 


-----Menue-Angebot----- 


l KONTOSTAND 1 KONTOSTAND 

2 EINZAHLUNG 2 EINZAHLUNG 

3 AUSZAHLUNG 3 AUSZAHLUNG 

4 NEUES KONTO 4 NEUES KONTO 

5 KONTO LOESCHEN 5 KONTO LOESCHEN 
6 GESAMTLISTE 6 GESAMTLISTE 

7 PROGRAMMENDE 7 PROGRAMMENDE 


Ihre Menue-Auswahl? 3 


Unterprogramm AUSZAHLUNG 


Weiter mit RETURN? 


Ihre Menue-Auswahl? 7 
Unterprogramm PROGRAMMENDE 


Ende. 
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3.2.2 Wirtschaftlich programmieren: Standardisierung 


In einer Kundendatei soll für jeden Kunden die NUMMER, der NA- 
ME und der UMSATZ gespeichert werden, in einer Artikeldatei zu 
jedem Artikel die BEZEICHNUNG, der PREIS und die MENGE, ... Je 
nach Dateiart ist das Eingabeproblem ähnlich. Unwirtschaftlich 
wäre es, für jedes Problem je ein neues Programm schreiben zu 
müssen. Programm STANDARDI zeigt die Problemlösung über ein 
Programm auf. Zwei Variablenebenen werden 
dabei unterschieden: 


- Variablen mit beschreibenden Daten: 
Die Variablen ND$(), TD$() und LD() nehmen Angaben zu Namen, 
Datentypen und Längen der Daten auf. Diese Daten sind in der 
DATA-Zeile gespeichert. Bei Änderung ist somit nur die DATA- 
Zeile zu überprüfen. 

- Variablen mit den eigentlichen Daten: 

Die Variable ID$() steht für den eigentlichen "Inhalt der zu 

verarbeitenden Daten', z.B. für die drei Artikelangaben '101 

GOLDEN DELICIOUS 3470.50'. 


Die Anweisung 


220 DIM ND$(AD) 
richtet für die Variable ND$ drei "Fächer' (da AD=3) zur spä- 


Codierung zu Programm STANDARD: 


100 REM ====== Programm STANDARD 
110 PRINT "Demonstration: Programmieren in zwei Variablenebenen." 


120 REM ====== Vereinbarungsteil 
130 ' AD: Anzahl der zu beruecksichtigenden Daten 


140 ' ND$(): Namen der Daten als Array mit AD Komponenten 
150 ' TD$(): Typen der Daten als Text-Array 

160 ' LD(): Laengen der Daten als numerischer Array 

170 ' ID$(): Inhalt der Daten als Text-Array 

180 ' Hinweis: Bei Aenderung der Daten nur DATA-Zeile 

190 ' zu aendern (I=Integer/S=String/R=Realzahl) 

200 REM ====== Anweisungsteil 

210 READ AD "Bezeichnungen gespeichert 


220 DIM ND$(AD), TD$(AD), LD(AD), ID$(AD) 
230 DATA 3, NUMMER,I,3, NAME,S,10, UMSATZ,R,6.2 


240 FOR Z=1 TO AD 'Leseschleife 

250 READ ND$(Z), TD$(Z), LD(Z) 

260 NEXT Z 

270 FOR Z=1 TO AD "Eingabeschleife 

280 PRINT ND$(Z);" - "5: INPUT ID$(Z) 

290 NEXT Z 

300 Fun Z=1 TO AD 'Bsp.: String-Laenge pruefen 


310 IF TD$(Z)="S" AND LEN(ID$(Z))>LD(Z) 
THEN PRINT "Fehlerhaft: ";ID$(Z);" ueber";LD(Z);"Stellen." 
ELSE PRINT "Fehlerfrei: ";ID$(Z) 

320 NEXT Z 

330 PRINT "Ende." : END 
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teren Speicherung von drei Strings ein. Diese Dimensionierung 
mittels DIM erklären wir in Abschnitt 3.7 ausführlich. 


Programm STANDARD verdeutlicht das prinzipielle Vorgehen beim 
Arbeiten mit zwei Variablenebenen und ist je nach Anwendung zu 


ergänzen: so fehlt z.B. die Prüfung für das UMSATZ-Format 6.2 
(6 Stellen, 2 Dezimalstellen). 


Ausführung zu Programm STANDARD: 


Demonstration: Programmieren in zwei Variablenebenen. 


NUMMER - ? 101 
NAME - ? GOLDEN DELICIOUS 
UMSATZ - ? 3470.50 


Fehlerfrei: 101 

Fehlerhaft: GOLDEN DELICIOUS ueber 10 Stellen. 
Fehlerfrei: 3470.50 

Ende. 


3.2.3 Einfach programmieren: Verzweigungstechnik 


Das Programm BOOLEANI verwendet das Zeichen = zur Zuweisung 
wie zum Vergleich. Das erste = in Zeile 120 bewirkt eine Wert- 
zuweisung: nach Bl wird das Ergebnis von X=Y zugewiesen. Dabei 
ist X=Y ein Vergleichsausdruck mit = als Vergleichszeichen und 
dem Vergleichsergebnis WAHR oder UNWAHR, das dann der Variab- 
len Bl zugewiesen wird. Bl steht für "Bedingung 1'. Der THEN- 
Zweig in Zeile 130 wird nur ausgeführt, wenn Bl den Wert WAHR 
hat. 

Variablen, die nur die Werte WAHR (bzw. TRUE) und UNWAHR (bzw. 
FALSE) annehmen können, nennt man boolesche Variablen. Damit 
wird der Mathematiker George Boole geehrt, der um 1850 die Lo- 
gik erforscht hat. BASIC sieht einen solchen Datentyp BOOLEAN 
(vgl. Abschnitt 1.3.2.1) explizit nicht vor. Gleichwohl können 
wir diesen Typ wie in Programm BOOLEANI gezeigt verwenden. 


Codierung zu BOOLEANI: Zwei Ausführungen zu BOOLEANI: 
100 REM ====== Programm BOOLEANI1 Zwei Zahlen eingeben? 5,6 
110 INPUT "Zwei Zahlen eingeben"; X,Y Ende. 


120 LET Bl = X=Y 

130 IF Bl THEN PRINT "Beide Zahlen gleich." Zwei Zahlen eingeben? 4,4 

140 PRINT "Ende." : END Beide Zahlen gleich, 
Ende. 


WAHR und UNWAHR wird in BASIC durch die Zahlen -1I und 0 dar- 
gestellt. Programm BOOLEAN2 zeigt dies. Neben = lassen sich 
auch die Vergleichszeichen >, >=, <, <= und<> einsetzen. 10>6 
z.B. ergibt den Wert WAHR bzw. -1. 


Codierung zu BOOLEAN2: Ausführung zu BOOLEAN2: 
100 REM ====== Programm BOOLEAN2 

110 PRINT "Datentyp BOOLEAN als:" Datentyp BOOLEAN als: 

120 PRINT "WAHR bzw. TRUE -> "; 3=3 WAHR bzw. TRUE -> -1 
130 PRINT "UNWAHR bzw. FALSE -> "; 3=4 UNWAHR bzw. FALSE -> O0 


140 PRINT "Ende." : END Ende. 
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Das Programm BOOLEAN3 zeigt, wie mehrere Vergleichsbedingungen 
durch logische Operatoren (auch boolesche Operatoren genannt) 
verknüpft werden können: so durch AND (und), OR (oder) und NOT 
(nicht). AND, OR und NOT werden in der Booleschen Algebra zur 
Erklärung logischer Zusammenhänge verwendet. Die Grundlage da- 
zu bilden die sogenannten Wahrheitstafeln. 


SEAN DEE ES LO Ra BE] NOJSE 0 
BANDS EOZ-EEO |BORSEOE- EEE NOTE | 
OSANDSESE ZEN OEORZE 
UEANDESUEZZEED UEORZE0E ZEE0 


Wahrheitstafeln für logisch 'und', 'oder' sowie 'nicht' 


Für X=1 und Y=0 ergibt der boolesche Ausdruck X AND Y den 
Wert FALSE bzw. 0 und X OR Y den Wert TRUE bzw. 1. Mehrere 
boolesche Operatoren können in einem Ausdruck auftreten. Zwei 
Beispiele hierzu: NOT(X OR Y) ergibt den Wert FALSE, während 
(X>-100)AND(X<100) den Wert TRUE ergibt. 


Codierung zu Programm BOOLEAN3: 


100 REM ====== Programm BOOLEAN3 

110 INPUT "Drei Worte eintippen"; A$,B$,C$ 

120 LET Bl = A$=B$ 

130 LET B2 = B$=C$ 

140 IF Bl AND B2 THEN PRINT "Alle drei Worte gleich." 

150 IF BL OR B2 THEN PRINT "Die ersten oder letzten beiden Worte gleich." 
160 IF NOT B2 THEN PRINT "Die letzten beiden Worte ungleich." 

190 PRINT "Ende." : END 


Drei Ausführungen zu Programm BOOLEAN3: 


Drei Worte eintippen? DM, DM, DM 

Alle drei Worte gleich. 

Die ersten oder letzten beiden Worte gleich. 
Ende. 

Drei Worte eintippen? 1,2,2 

Die ersten oder letzten beiden Worte gleich, 
Ende, 

Drei Worte eintippen? MA,ME,MA 

Die letzten beiden Worte ungleich. 

Ende, 


Die drei Programmbeispiele BOOLEANI - BOOLEAN3 zeigen, daß in 
BASIC neben den Datentypen INTEGER (Ganzzahl), REAL (Dezimal- 
zahl) sowie STRING (Text, Zeichenkette) auch der Typ BOOLEAN 
(Wwahrheitswert) verwendet werden kann. Dabei sind zwei Punkte 
festzuhalten: 

Das Anweisungswort LET sollte stets beibehalten werden. Sicher 
ist 20 LET BI = X=Y besser lesbar als 20 B1=X=Y. Dennoch bein- 
halten beide Anweisungen dasselbe: vergleiche X mit Y und wei- 
se das Ergebnis WAHR bzw. UNWAHR als -1I bzw. 0 der booleschen 
Variablen B1 zu. 

Die Verwendung des in BASIC nur "im Verborgenen vorhandenen" 
Datentyps BOOLEAN eröffnet elegante Möglichkeiten zur Ablauf- 
steuerung über Verzweigungen und Schleifen. 
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Mt Textverarbeitung ist hier nicht das kauf- 
männische Standard-Programmpaket gemeint (siehe dazu Abschnitt 
1.3.8.3), sondern das Zerlegen und Zusammenfügen einzelner Da- 
ten vom Typ 'Text' bzw. '"String'. Man spricht dabei häufig von 
Stringverarbeitung. 


3.3.1 Stringoperationen im Überblick 


BASIC stellt die Standardfunktionen LEN, LEFT$, RIGHT$, MID$, 
INSTR, VAL, STR$, SPACE$, STRING$, CHR$ sowie ASC bereit. 


- Verkettung von Strings: + LET X$="6900" 
x$ + '" " + 2$ ergibt 6900 HEIDELBERG LET Y$="HEIDELBERG" 
BETZ. =6900 
- Länge eines Strings: LEN(Y$) 
LEN(X$) ergibt 4; LEN(Y$) ergibt 10 


- Linker Teilstring: LEFT$(Y$,L) 
LEFT$(Y$,5) ergibt HEIDE; LEFT$(Y$,2) ergibt HE 


- Rechter Teilstring: RIGHT$(Y$,L) 
RIGHT$(Y$,4) ergibt BERG; RIGHT$(X$,2) ergibt 00 


- Teilstring von V bis zum Ende: MID$(Y$,V) 
MID$(Y$,7) ergibt BERG; MID$(X$,2) ergibt 900 


- Teilstring von V mit Länge L: MID$(Y$,V,L) 
MID$(Y$,2,3) ergibt EID; MID$(Y$,6,1) ergibt L 


= #Erste Stelle von S$T in Y$- INSTRI(YS,SS) 
INSTR(Y$,SDEBN) ergibt 45 INSTRINST CH) ergibt 0 


- Umwandlung von Zahl in String: STR$(Z) 
STR$(Z) + Y$ ergibt 6900HEIDELBERG; 2 + Y$ ergibt Fehler 


- Leerstring (Blancs) mit Länge L: SPACE$(L) 
xX$ + SPACE$(10) + Y$ ergibt 10 Blancs zwischen X$ und Y$ 


- String aus L Zeichen mit ASCII-Codezahl A: STRING$(L,A) 
STRING$(20,61) ergibt 20 "="-Zeichen (61 = Codezahl von "=") 


- Umwandlung von String in Zahl: VAL(X$) 
VAL(X$) - 400 ergibt 6500; x$ - 400 ergibt Fehler 


- Umwandlung von Codezahl in Einzelzeichen: CHR$(X) 
CHR$(49) ergibt 1; CHR$(82) ergibt R (ASCII-Zeichen) 


- Umwandlung von Einzelzeichen in Codezahl: ASC(A$) 
ASClU RA)BErg1HEEB2, ASeW )rergibt6 (ASCII-Zeichen) 


Funktionen zur Verarbeitung von Strings 


Diese Stringoperationen wollen wir an Beispielen betrachten. 
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3.3.2 Einige kleine Programmbeispiele 


Programm TEXTO demonstriert die Funktion INSTR: der Suchstring 
2$ soll im Gesamtstring E$ gesucht und die erste Stelle ausge- 
geben werden. Das zweite Ausführungsbeispiel zeigt, daß INSTR 
mit der Suche abbricht, sobald ein Suchstring (hier "E") ge- 
funden wurde. 

INSTR(10,E$,2$) beginnt erst ab der 10. Stelle von E$ mit der 
Suche nach 2$. 


Codierung zu Programm TEXTO: 


100 REM ====== Programm TEXTO 
110 PRINT "String in einem Text suchen (mit INSTR)." 


120 REM ====== Vereinbarungsteil 

130 ' E$: Beliebiger Eingabetext (maximal 256 Zeichen lang) 

140 ' Z$: In E$ zu suchender Teilstring (auch einzelnes Zeichen) 
150 ' S: Stelle in E$, an der Z$ beginnt bzw. O fuer Fehlanzeige 


160 REM ====== Anweisungsteil 
170 INPUT "Welcher Text"; E$ 
180 INPUT "Welchen Teilstring suchen"; Z$ 
190 LET S = INSTR(E$,Z$) 
200 IF S=0 
THEN PRINT ".... nicht vorhanden." 
ELSE PRINT "... beginnt an Stelle";S;"." 
210 PRINT "Ende." : END 


Drei Ausführungen zu Programm TEXTO: 


String in einem Text suchen (mit INSTR). 
Welcher Text? DISKONTIEREN 

Welchen Teilstring suchen? DISKO 

... beginnt an Stelle 1. 

Ende, 


String in einem Text suchen (mit INSTR). 
Welcher Text? DISKONTIEREN 

Welchen Teilstring suchen? E 

e.. beginnt an Stelle 9 . 

Ende. 


String in einem Text suchen (mit INSTR). 
Welcher Text? DISKONTIEREN 

Welchen Teilstring suchen? SKI 

... nicht vorhanden. 

Ende. 


Programm TEXTI zeigt, wie über die Funktion MID$ ein String 2$ 
im Gesamtstring E$ gesucht werden kann. 
Programmstrukturen: Zählerschleife und Einseitige Auswahl. 


Ausführung zu Programm TEXT1: 


String in einem Text suchen (ohne INSTR). 
Welcher Text? MWST INCL. 

Welchen Teilstring suchen? INCL. 

INCL. beginnt an Stelle 6 . 

Ende. 
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Codierung zu Programm TEXT1: 


100 REM ====== Programm TEXTI 
110 PRINT "String in einem Text suchen (ohne INSTR)." 


120 INPUT "Welcher Text"; E$ 
130 INPUT "Welchen Teilstring suchen"; Z$ 
140 FOR I=1 TO (LEN(E$)-LEN(Z$)+1) 
150 IF MID$(E$,I,LEN(Z$))=Z$ THEN LET S=I 
160 NEXT I 
170 IF SO 
THEN PRINT Z$;" beginnt an Stelle";S;",'" 
ELSE PRINT "... nicht gefunden. Fehlanzeige." 
180 PRINT "Ende." : END 


Programm TEXT2 kehrt den Text T1$ zu T2$ um. Dabei wird in ei- 
ner Zählerschleife mit Schrittweite -1 das letzte, vorletzte, 
... Element von T1$ entnommen und an den String T2$ angehängt. 
Dazu wird vor dem Schleifeneintritt ein Leerstring T2$ erzeugt 
(Zeile 200), an den dann wiederholt Zeichen angehängt werden. 


Codierung zu Programm TEXT2: 


100 REM ====== Programm TEXT2 
110 PRINT "Demonstration zum Umkehren von Text." 


120 REM ====== Vereinbarungsteil 
130 ' TI$: Eingegebener Text 
140 ' T2$: Ausgegebener Unkehrtext 


150 '" L: Laenge von T1$ bzw. T2$ 

160 ' I: Laufvariable fuer Zaehlerschleife 

170 REM ====== Anweisungsteil 

180 INPUT "Welchen Text umkehren"; T1$ 

190 LET L=LEN(T1$) 'Laenge des Strings Tl$ 

200 LET T2$="" ' T2$ als Leerstring mit Laenge O 
210 FOR I=L TO 1 STEP -1 'Von L bis 1 hinunterzaehlen 

220 LET T2$=T2$+MID$(T1$,I,1) "Das I. Zeichen an T2$ anhaengen 
230 PRINT L-I+l;". Schleifendurchlauf: ";T2$ 'Kontrollausgabe 
240 NEXT I 'Naechstes Zeichen nehmen 

250 PRINT : PRINT T1$;" umgekehrt zu ";T2$ 

260 END 


Ausführung zu Programm TEXT2: 


Demonstration zum Umkehren von Text. Demonstration zum Umkehren von Text. 


Welchen Text umkehren? BASIC Welchen Text umkehren? 124 DM 
l . Schleifendurchlauf: C l . Schleifendurchlauf: M 
2 . Schleifendurchlauf: CI 2 . Schleifendurchlauf: MD 
3 . Schleifendurchlauf: CIS 3 . Schleifendurchlauf: MD 
4 „ Schleifendurchlauf: CISA 4 „ Schleifendurchlauf: MD 4 
5 „ Schleifendurchlauf: CISAB 5 . Schleifendurchlauf; MD 42 
6 . Schleifendurchlauf; MD 421 


BASIC umgekehrt zu CISAB 124 DM umgekehrt zu MD 421 
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Programm TEXT3 wendet die Funktion STR$ zur Umwandlung einer 
zahl Z in einen String 2$ an, um die einzelnen Ziffern ausein- 
anderziehen zu können. 

Programm TEXT4 zeigt das Unterstreichen über eine Schleife und 
über die Funktion STRING$. Dabei ist 45 die ASCII-Codezahl von 
"_", Für STRING$(L,45) kann man auch STRING$(L,"-") schreiben. 


Codierung zu Programm TEXT3: Ausführung zu Programm TEXT3: 
100 REM ====== Programm TEXT3 RUN 

110 PRINT "Ziffern auseinanderziehen." Ziffern auseinanderziehen. 
120 INPUT "Welche Zahl"; Z Welche Zahl? 12564.8 


130 LET Z$ = STR$(Z) 12564.8 
140 FOR I=1 TO LEN(Z$) 
150 PRINT MID$(Z$,1,1);" "; 


160 NEXT I 

170 END 

Codierung zu Programm TEXT4: Ausführung zu Programm TEXT4: 
100 REM ====== Programm TEXT4 

110 PRINT "Text unterstreichen." RUN j 

120 PRINT "Text eingeben:" Text unterstreichen. 

130 INPUT T$ : LET L=LEN(T$) Text eingeben: 

140 PRINT STRING$(L,45) ? Dieser Text ist unterstrichen 
Fe an TOL Dieser Text ist unterstrichen 
ie: 5 AR 2 1. A 22222 


180 NEXT I : END 


Durch Programm TEXT5 wird Text rechtsbündig ausgegeben. Hierzu 
wird ein String L$ mit Z Blanks bzw. Leerstellen aufgebaut, an 
den der Eingabetext E$ angehängt wird, um mit RIGHT$(G$,2) die 
Z rechtsstehenden Zeichen auszugeben. 

Programm TEXT6 erweitert eine Ganzzahl 2% - in einen String 2$ 
umgewandelt - um führende Nullen. 


Codierung zu Programm TEXT5: 


100 REM ====== Programm TEXT5 

110 PRINT "Text mit Leerstellen auffuellen und rechtsbuendig ausgeben." 
120 PRINT "Stellenanzahl bzw. Zeilenbreite?'" : INPUT Z 

130 FOR I=1 TO Z : LET L$=L$+" " : NEXT I 

140 PRINT "Texteingabe (unter";Z;"Stellen)?" : INPUT E$ 

150 LET G$=L$+E$ : LET A$=RIGHT$(G$,Z) 

160 PRINT : PRINT "Textausgabe rechtsbuendig:" : PRINT A$ 

170 END 


Ausführung zu Programm TEXT5: 


Text mit Leerstellen auffuellen und rechtsbuendig ausgeben. 
Stellenanzahl bzw. Zeilenbreite? 

? 30 

Texteingabe (unter 30 Stellen)? 

? RECHNUNGSBETRAG 


Textausgabe rechtsbuendig: 
RECHNUNGSBETRAG 
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Codierung zu Programm TEXT6: 


100 REM ====== Programm TEXT6 

110 PRINT "Zahl um fuehrende Nullen erweitern." 
120 INPUT "Anzahl der Stellen insgesamt"; A 
130 INPUT "Welche positive ganze Zahl "; Z% 


140 LET Z$=STR$(Z%) "Zahl in String umwandeln 
150 LET Z$=RIGHT$(Z$,LEN(Z$)-1) "Vorzeichenstelle weglassen 
160 LET Z$=RIGHT$ ('"'00000000000000"+Z$ ,A) 'Nullen voranstellen 


170 PRINT Z$ 
180 PRINT "Ende." : END 


Ausführung zu Programm TEXT6: 


Zahl um fuehrende Nullen erweitern. 
Anzahl der Stellen insgesamt? 10 
Welche positive ganze Zahl ? 12 
0000000012 

Ende, 


Programm TEXT7 demonstriert die Funktion LEFT$, um Text durch 
Blanks zu erweitern (Anwendung z.B., um eine feste Datensatz- 
länge einer Datei zu erreichen). Dazu setzen wir die Funktion 
SPACE$ ein. 

Programm TEXT8 geht umgekehrt vor und eliminiert Blanks. Da 
INPUT angehängte Blanks nicht annimmt, wird zur Demonstration 
die Anweisung LINE INPUT verwendet. 


Codierung zu Programm TEXT7: 


100 REM ====== Programm TEXT7 
110 PRINT "String mit Blancs erweitern." 
120 INPUT "Welche Gesamtanzahl von Stellen"; A 


130 INPUT "Zu erweiternder String "..s$ 
140 LET B$=SPACE$(A) 'A Blancs nach B$ 
150 LET S$=LEFT$(S$+B$,A) 'S$ links anordnen 


160 PRINT "—>";5$;"<-" 
170 PRINT "Ende." : END 


Codierung zu Programm TEXT8: 


100 REM ====== Programm TEXT8 
110 PRINT "Blancs aus String abschneiden." 
120 PRINT "String mit Blancs am Ende?" 
130 LINE INPUT E$ : LET S$=E$ 
140 FOR I=LEN(S$) TO 1 STEP -1 
150 IF RIGHT$(S$,1)=" " 
THEN LET S$=LEFT$(S$,LEN(S$)-1) 
160 NEXT I : 
170 PRINT "5 "ES ; " u" B PRINT "> ",5$ ; _!" 
180 PRINT "Ende." : END 


Ausführung zu Programm TEXT7: Ausführung zu Programm TEXTB8: 
String mit Blancs erweitern. Blancs aus String abschneiden, 
Welche Gesamtanzahl von Stellen? 20 String mit Blancs am Ende? 

Zu erweiternder String ? 17150 RECHNUNGSBETRAG 

->17150 <- —> RECHNUNGSBETRAG <- 
Ende. -> RECHNUNGSBETRAG <- 


Ende. 
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Programm TEXT9 sucht über die Funktion INSTR die Stellen (In- 
dices) von Blanks in einem Text. 


Codierung und Ausführung zu Programm TEXT9: 


100 REM ====== Programm TEXT9 
110 PRINT "Stellen und Anzahl von Blancs in einem Text feststellen." 


120 PRINT "Welchen Text mit Blancs durchsuchen" ; INPUT EINTEXT$ 
130 LET STARTSTELLE = 1 : LET ANZAHL = 0- 

140 LET BLANCSTELLE = INSTR (STARTSTELLE, EINTEXT$, " ") 

150 PRINT : PRINT "Stellen mit Blancs:" 


160 WHILE BLANCSTELLE<>O 

170 PRINT BLANCSTELLE; 

180 LET ANZAHL = ANZAHL + 1 

190 LET STARISTELLE = BLANCSTELLE + 1 

200 LET BLANCSTELLE = INSTR (STARTSTELLE, EINTEXT$, " ") 
210 WEND 


220 PRINT : PRINT "Anzahl der Blancs:"; ANZAHL 
230 PRINT "Ende." : END 


RUN 

Stellen und Anzahl von Blancs in einem Text feststellen. 
Welchen Text mit Blancs durchsuchen 

? DER ALTE MANN UND DAS MEER 


Stellen mit Blancs; 
49 14 18 22 
Anzahl der Blancs: 5 
Ende. 


3.3.3 Datumsangaben verarbeiten 


Angaben zum Datum werden so oft verarbeitet, daß man fast von 
einem eigenen 'Datentyp' sprechen kann. Programm DATUMINT be- 
reitet ein Datum zum Sortieren auf: Das Eingabeformat 'Tag-Mo- 
nat-Jahr' wird umgekehrt zum Format "'Jahr-Monat-Tag' und könn- 
te so leicht - in eine Ganzzahl umgewandelt - sortiert werden. 


Codierung und Ausführung zu Programm DATUMINT: 


100 REM ====== Programm DATUMINT 
110 PRINT "Datum aus String in eine Ganzzahl umwandeln zwecks Sortieren." 
120 INPUT "Datum im Format TT.M.JJ eingeben ";D$ 


130 LET T$=LEFT$(D$,2) 'Tage zuweisen 

140 LET M$=MID$(D$,4,2) "Monate zuweisen 

150 LET J$=RIGHT$(D$,2) ‘Jahre zuweisen 

160 LET D=VAL(J$+M$+T$) "Datum als Ganzzahl bzw. INTEGER-Zahl D 


170 PRINT "Datum als sortierfaehige Ganzzahl : ";D 
180 PRINT "Ende." : END 


Datum aus Sırıng in eine Ganzzahl umwandeln zwecks Sortieren. 
Datum im Format TT.M.JJ eingeben ? 31.08.47 

Datum als sortierfaehige Ganzzahl : 470831 

Ende, 
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Programm DATUMPRU überprüft, ob ein Datum innerhalb einer vor- 
gegebenen Zeitspanne liegt oder nicht. Dabei wird jedes Datum 
mit der Funktion VAL in einen numerischen Wert umgewandelt, um 
die Abfragen vornehmen zu können. DATUMPRU weist eine zZähler- 
schleife auf, der eine Fallabfrage (7 Fälle) folgt. 


Codierung zu Programm DATUMPRU: 


100 REM ====== Programm DATUMPRU 
110 PRINT "Pruefen, ob ein Datum in einer bestimmten Zeitspanne liegt." 


120 REM ====== Vereinbarungsteil 

130 DIM D$(3) "3-Elemente-Stringarray fuer Datumangaben 

140 DIM T(3) '3-Elemente-Integerarray (Ganzzahlarray) fuer Tage 
150 DIM M(3) '3-Elemente-Integerarray fuer Monate 

160 DIM J(3) '3-elemente-Integerarray fuer Jahre 


170 REM ====== Anweisungsteil 

180 INPUT "Untere Datumgrenze TT.M.JJ ";D$(1) 
190 INPUT "Obere Datumgrenze TT.MM.JJ ";D$(2) 
200 INPUT "Testdatum TT.M.JJ ";D$(3) 
210 FOR I=1 TO 3 

220 LET T(I) = VAL(LEFT$(D$(I),2)) 

230 LET M(I) = VAL(MID$(D$(I),4,2)) 

240 LET J(I) = VAL(RIGHT$(D$(I),2)) 

250 NEXT I 


260 IF J(3)>J(2) THEN PRINT "Jahr zu jung." : GOTO 330 

270 IF J(3)KJ(1) THEN PRINT "Jahr zu alt." : GOTO 330 

280 IF J(3)=J(2) AND M(3)>M(2) THEN PRINT "Monat zu jung." : GOTO 330 

290 IF J(3)=J(1) AND M(3)<M(1) THEN PRINT "Monat zu alt." : GOTO 330 

300 IF J(3)=J(2) AND M(3)=M(2) AND T(3)>T(2) THEN PRINT "Tag zu jung.": GOTO 330 
310 IF J(3)=J(1) AND M(3)=M(1) AND T(3)<T(1) THEN PRINT "Tag zu alt.": GOTO 330 
320 PRINT "Datum liegt innerhalb der Zeitspanne." 


Ausführung zu Programm DATUMPRU: 


Pruefen, ob ein Datum in einer bestimmten Zeitspanne liegt. 
Untere Datumgrenze TT.MM.JJ ? 31.01.1983 

Obere Datumgrenze TT.MM.JJ ? 04.03.1983 

Testdatum TT.M.JJ ? 13.02.1983 

Datum liegt innerhalb der Zeitspanne. 


3.3.4 Teilstrings aufbereiten 


Aus Gründen der Speicherplatzersparnis speichert man die Sätze 
einer Datei oft als Strings ab, wobei die Satzkomponenten z.B. 
durch das Zeichen ";'" voneinander getrennt werden. Programm 
ETIKETT demonstriert, wie aus dem String S$ die Teilstrings T$ 
zu einem Drucketikett aufbereitet werden. Das Beispiel bezieht 
sich also auf eine Artikeldatei mit Datensätzen (Strings S$), 
die aus jeweils 6 Datenfeldern (Teilstrings T$) bestehen. Die 
Abfrage in der Zeile 240 vergleicht mit CHR$(59) bzw. mit ";" 
(59 als Codezahl für das Semikolon im ASCII); man könnte eben- 
so schreiben: 240 IF (MID$(S$,I,1)=";") OR ... 
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Codierung zu Programm ETIKETT: 


100 REM ====== Programm ETIKETT 
110 PRINT "Aus einem String (Datensatz) einzelne Teilstrings" 
120 PRINT "(Datenfelder) entnehmen und als Drucketikett ausgeben." 


130 REM ====== Vereinbarungsteil 

140 ' S$: Datensatz mit mehreren durch ; voneinander getrennten Datenfeldern 
150 '" NS: Laenge (Anzahl der Zeichen einschliesslich ;) von S$ 

160 ' T$: Teilstring zur Aufnahme eines Datenfeldes 

170 ' NT: Laenge von T$ 


180 REM ====== Anweisungsteil 

190 PRINT "Eingabe eines Datensatzes mit ; (Semikolon) als Trennungszeichen:" 
200 INPUT S$ : LET NS=LEN(S$) 

210 PRINT : PRINT "Ausgabe als Etikett:" 


220 WHILE NS<>O "Beginn der aeusseren Schleife 
230 FOR I=1 TO NS 

240 IF (MID$(S$,I,1)=CHR$(59)) OR (NS=1) THEN LET NT=I : LET I=NS 

250 NEXTI 


260 LET T$=LEFT$(S$,NT-1) 'Teilstring T$ entnehmen 
270 PRINT" ";T$ 

280 LET NS=NS-NT "String S$ um T$ kuerzen 
290 LET S$=RIGHT$(S$,NS) 

300 WEND "Ende der aeusseren Schleife 


310 PRINT "Ende." : END 


Ausführung zu Programm ETIKETT: 


Aus einem String (Datensatz) einzelne Teilstrings 

(Datenfelder) entnehmen und als Drucketikett ausgeben. 

Eingabe eines Datensatzes mit ; (Semikolon) als Trennungszeichen: 
? 1002;PAPIER;DIN A4;UNLINIERT;100 BLATT;DM 3.50; 


Ausgabe als Etikett: 
1002 
PAPIER 
DIN A4 
UNLINIERT 
100 BLATT 
DM 3.50 
Ende. 


3.3.5 Stringvergleich mit Wildcard-Zeichen 


Programm WILDCARD veranschaulicht vier wesentliche Möglichkei- 
ten, einen String "MWST" als Ordnungsbegriff mit je einem wei- 
teren String als Suchbegriff zu vergleichen. 

1) Verwendet man das Wildcard-Zeichen = „ so wird M=, MW= wie 
MWS= jeweils als "gleich’ mit MWST erkannt. Das = ersetzt also 
eine Zeichenfolge. Insbesondere bei längeren Strings spart man 
sich bei Verwendung des Wildcards = viel Tipparbeit. 
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2) Das Wildcard-Zeichen ? ersetzt ein Einzelzeichen. MW?T 
wie auch M??T werden so als 'gleich' mit MWST erkannt. 

3) Der Gesamtvergleich vergleicht beide Strings Zeichen für 
Zeichen in voller Länge. 

4) Der Teilvergleich faßt den Suchbegriff als Teilmenge auf. 


Codierung zu Programm WILDCARD: 


100 REM ====== Programm WILDCARD 
110 PRINT "Demonstration von vier Arten des Stringvergleichs." 


120 REM ====== Vereinbarungsteil 
130 ' 0$: Ordnungsbegriff, mit dem jeweils verglichen wird 
140 ' S$; Suchbegriff 
150 | NO: Stellenanzahl von 0$ 
' 


160 ' NS: Stellenanzahl von S$ 
170 ' S: Stelle bzw. Merker (Flagge) 
180 REM ====== Anweisungsteil 


190 INPUT "Welcher Ordnungsbegrif£f"; 0$ : PRINT : LET NO=LEN(0$) 


200 INPUT "—> Erster Suchbegriff (999 fuer Ende) ";S$ 
210 WHILE S$ <>"999" 
220 LET NS=LEN(S$) : LET S=0 "'S als Stelle sowie Flagge 
230  "ielak GESAMTVERGLEICH etekokakakakaktakaksiaaeieieigtptakakgiaefelgttpkakgkaisefeteleleleleieiekkiick 
240 LET S1$=LEFT$(S$+" ",NO) 
250 IF S1$=0$ THEN PRINT "Gesamtvergleich: ";S$;" gleich ";0$ 
260  "alak TEILVERGLEICH. Rakaealekefefefefefefeeestaateateatetftgtetetetetettteteletsteeefefefegeieiek 
270 IF S$=LEFT$(O$,NS) THEN PRINT "Teilvergleich: ";S$;" links in ";0$ 
280 "ak VERGLEICH MIT PRAEFIX =  taketakakstatllaiakakakskskslelolalakakksksktelefgigickskskkeik 
290 FOR I=1 TO NS 
300 IF "="=MID$(S$,I,1) THEN LET S=I: LET I=NS 
310 NEXTI 
320 IF S=0 THEN 350 
330 IF LEFT$(S$,S-1)=LEFT$(0$,S-1) 
THEN PRINT "Vergleich mit Praefix '=': ";S$;" in ";0$ 
340  "»skk VERGLEICH MIT EGAL ? takakakakstalaiakskaiaiakakstelaiakskieeiakskakatksokaiaksksiakakskiiik 
350 LET S=1 "'S als Flagge 
360 FOR I=1 TO NO 
370 IF "?"=MID$(S$,I,1) THEN 390 
380 IF MID$(S$,I,1)<>MID$(O$,I,1) THEN LET S=0 : LET I=NO 
390 NEXT I 
400 IF Sc»O THEN PRINT "Vergleich mit Egal '?': ";S$;" gleich ";0$ 
410 INPUT "-> Neuer Suchbegriff (999=Ende) ";S$ 
420 WEND 


430 PRINT "Ende." : END 


3.3.6 Blocksatz erstellen 


Blocksatz als Textdarstellung mit linkem u nd rechtem Rand- 
ausgleich wird von Programm BLOCKSAT demonstriert. Dabei wird 
ein Eingabestring EIN$ der Länge LE durch Hinzufügen von Leer- 
zeichen bzw. Blancs zu einem Ausgabestring AUS$ der vorgegebe- 
nen Länge LA erweitert. Mehrere Strings AUS$ ergeben dann eine 
Textseite mit rechtem Randausgleich bei einer Zeilenlänge LA. 
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Ausführung zu Programm WILDCARD: 


Demonstration von vier Arten des Stringvergleichs. 
Welcher Ordnungsbegriff? MWST 


-> Erster Suchbegriff (999 fuer Ende) ? MW= 
Vergleich mit Praefix '=': MW= in MWST 

-> Neuer Suchbegriff (999=Ende) ? MW?? 
Vergleich mit Egal '?': MW?? gleich MWST 

-> Neuer Suchbegriff (999=Ende) ? MW?T 
Vergleich mit Egal '?': MW?T gleich MWST 

-> Neuer Suchbegriff (999=Ende) ? MW 
Teilvergleich: MW links in MWST 

-> Neuer Suchbegriff (999=Ende) ? MWST 
Gesamtvergleich: MWST gleich MWST 
Teilvergleich: MWST links in MWST 

Vergleich mit Egal '?': MWST gleich MWST 

-> Neuer Suchbegriff (999=Ende) ? MWST DABEI 
Gesamtvergleich: MWST DABEI gleich MWST 
Vergleich mit Egal '?': MWST DABEI gleich MWST 
-> Neuer Suchbegriff (999=Ende) ? 999 


Codierung zu Programm BLOCKSAT: 


100 REM ====== Programm BLOCKSAT 

110 PRINT "Demonstration; Automatischer Randausgleich." 
120 REM ====== Vereinbarungsteil 

130 ' EIN$, LE: Eingabezeile, Laenge von EIN$ 

140 ' AUS$, LA: Ausgabezeile, Laenge von AUS$ 

150 ' BE: Anzahl von Blancs (Leerstellen) in EIN$ 
160 ' BA: Anzahl von Blancs in AUS$ hinzuzufuegen 
170 ' BV: Anzahl von Blancs gerade verarbeitet 
180 ' Z$: Zeichen zum Hinzufuegen 

190 REM ====== Anweisungsteil 


200 INPUT "Eingabezeile"; EIN$ : LET LE=LEN(EIN$) 
210 INPUT "Laenge fuer Ausgabezeile"; LA : PRINT 
220 LET BE=O0 : LET BA=LA-LE : LET AUS$="" 


230 FOR Z=1 TO LA "Blancs-Anzahl in Eingabezeile 

240 IF MID$(EIN$,Z,1)=" " THEN LET BE=BE+1 

250 NEXT Z 

260 FOR Z=1 TO LA "Ausgabezeile zeichenweise aufbauen 
270 LET Z$=MID$(EIN$,Z,1) 'Z. Zeichen in EIN$ nehmen 

280 LET AUS$=AUS$+Z$ 'Z. Zeichen in AUS$ anfuegen 


290 IF Z$<>" '"' THEN 360 ELSE 300 
300 LET BV=INT(BA/BE) 
310 IF BV<1 THEN 350 ELSE 320 


320 FOR X=1 TO BV 

330 LET AUS$=AUS$+" " : LET BA=BA-1 
340 NEXT X 

350 LET BE=BE-1 

360 NEXT Z 


370 PRINT "1234567890123456789012345678901234567890" 
380 PRINT EIN$ : PRINT AUS$ 
390 PRINT '"1234567890123456789012345678901234567890" 
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Ausführung zu Programm BLOCKSAT: 


Demonstration: Automatischer Randausgleich. 
Eingabezeile? DER JUNGE MANN UND DER COMPUTER 
Laenge fuer Ausgabezeile? 36 


1234567890123456789012345678901234567890 
DER JUNGE MANN UND DER COMPUTER 

DER JUNGE MANN UND DER COMPUTER 
1234567890123456789012345678901234567890 


3.3.7 Verschlüsselung zwecks Datenschutz 


In Klartext gespeicherte Daten kann jeder lesen, verschlüssel- 
te Daten hingegen zumindest nicht so leicht. Die Kryptographie 
als Lehre von der Textverschlüsselung kennt drei wichtige Ver- 
fahren: Die Umcodierung (z.B. Information im ASCII schreiben), 
das Versatz-Verfahren und das Ersetzungs-Verfahren. Versatz 
bedeutet, daß das zugrundeliegende Alphabet versetzt und umge- 
stellt wird; ein Beispiel haben wir mit dem "von hinten nach 
vorne schreiben' in Programm TEXT2 (Abschnitt 3.3.2) schon be- 
handelt. Bei den Ersetzungs-Verfahren wird das zugrundeliegen- 
de Alphabet ersetzt; das folgende Programm GEHEIM zeigt ein 
einfaches auf Julius Cäsar zurückgehendes Verfahren. Wie geht 
man dabei vor? Jedes Zeichen des Klartextes E$ wird durch das 
S%-te nachfolgende Zeichen ersetzt. Dabei geben die Codezah- 
len des ASCII die Reihenfolge vor. Die ASC-Funktion stellt uns 
mit dem Aufruf ASC(MID$(E$,I,1)) die Codezahl des I. Zeichens 
im Klartext E$ zur Verfügung; addieren wir S% hinzu, so kommen 
wir zur Codezahl des verschlüsselten Zeichens. 


Ausführungen zu Programm GEHEIM: 


Textverschluesselung nach dem Verfahren '"Ersetzung Caesar'. 
Eingabetext? 1298560 DM BILANZSUMME 
Schluessel? 10 


l. Verschluesselung: 2. Entschluesselung: 
Ausgabetext: MN Eingabetext jetzt; 
;<CB?5:*NW*LSVKXdÜ_WWO ;<cCB?8: #NW*LSVKXdU_WWO 


Ausgabetext wiederum; 
1298560 DM BILANZSUMME 
Ende. 


Textverschluesselung nach dem Verfahren 'Ersetzung Caesar'. 
Eingabetext? KAIER 
Schluessel? 2 


1. Verschluesselung: 2. Entschluesselung: 
Ausgabetext: Eingabetext jetzt: 
MCKGT MCKGT 
Ausgabetext wiederum: 
KAIER 


Ende. 
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Codierung zu Programm GEHEIM: 


100 REM ====== Programm GEHEIM 

110 PRINT "Textverschluesselung nach dem Verfahren 'Ersetzung Caesar'." 
120 REM ====== Vereinbarungsteil 

130 ' E$, A$: Eingabetext und verschluesselter Ausgabetext 

140 ' 5%: Ganzzahliger Schluessel zum Ersetzen 

150 ' HR: ASCII-Codezahl 


160 REM ====== Anweisungsteil 

170 INPUT "Eingabetext"; E$ 

180 INPUT "Schluessel"; S% 

190 PRINT : PRINT "1. Verschluesselung:" 
200 GOSUB 1000 

210 PRINT "Ausgabetext:" : PRINT A$ 


220 PRINT : PRINT "2. Entschluesselung:" 
230 LET E$=A$ : LET S2=-5% 

240 PRINT "Eingabetext jetzt:" : PRINT E$ 
250 GOSUB 1000 

260 PRINT "Ausgabetext wiederum:" : PRINT A$ 
270 PRINT "Ende." : END 


1000 LET A$="" '!xk%* Beginn Unterprogramm ERSETZUNG *** 
1010 FOR I=1 TO LEN(E$) 

1020 LET H%=ASC(MID$(E$,I,1))+S% 

1030 IF H% > 127 THEN LET H%=H%-127 

1040 IFH%<O THEN LET H%=H%+127 

1050 LET A$ = A$ + CHR$(HZ) 

1060 NEXT I 

1070 RETURN 'kk Ende Unterprogramm ERSETZUNG ***%* 


3.3.8 Ein Spiel zum Erraten von Text 


Im RATSPIEL muß ein Wort erraten werden, von dem zunächst nur 
die Länge bekannt ist. Wird ein passendes Zeichen getippt, so 
setzt das Programm dieses Zeichen an die zugehörige Stelle. 
Die bei der Ausführung zum Programm RATSPIEL untereinander- 
stehenden Buchstaben E,B,A,R,I ... wurden über Tastatur einge- 
tippt. 'BASIC-WEGWEISER als zu erratendes Wort wurde der Ein- 
fachheit halber eingetippt. Man könnte es z.B. in einer Datei 
zusammen mit weiteren Worten speichern und zufällig auswählen. 
Zur Codierung von RATSPIEL: 

Die Zählerschleife in 120 baut einen Ausgabestring A$ mit zu- 
nächst ausschließlich nur Sternchen auf in160 ist eine Warte- 
schleife programmiert, die sich wiederholt, bis mittels GET E$ 
ein Zeichen nach E$ eingetippt wird. Je nach Übereinstimmung 
dieses Zeichens mit dem ersten, dem letzten oder einem sonsti- 
gen Zeichen im Ratewort W$ wird das erste Sternchen (in Zeile 
190), das letzte Sternchen (in 200) oder ein mittleres Stern- 
chen (in 210) vom Ausgabetext A$ durch E$ ersetzt, d.h. E$ mit 
A$ neu verkettet. 
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Codierung zu Programm RATSPIEL: 


100 REM ====== Programm RATSPIEL 

110 PRINT "Welches Wort raten?" : INPUT W$ : LET LW=LEN(W$) 
120 LET A$="" : FOR I=1 TO LW : LET A$=A$+"*" : NEXT I 
130 CLS : PRINT "Nun Einzelzeichen tippen:" : PRINT 

140 WHILE A$<>W$ 

150 PRINT A$;" 1: 

160 LET E$=INKEY$: IF E$="" THEN 160 

161 PRINT E$ 

170 FOR I=1 TO LW 

180 IF MID$(W$,I,1)<>E$ THEN 220 

190 IF I=1 THEN LET A$=E$+RIGHT$(A$,LW-1) : GOTO 220 
200 IF I=LW THEN LET A$=LEFT$(A$,I-1)+E$ : GOTO 220 
210 LET A$=LEFT$(A$,I-1) + E$ + RIGHT$(A$,LW-I) 

220 NEXTI 

230 WEND 

240 PRINT A$," SPIELENDE." : END 


Zwei Ausführungen zu Programm RATSPIEL: 


RUN RUN 
Welches Wort raten? 

? BASIC-WEGWEISER 

Nun Einzelzeichen tippen: 


RICK ICK IKK 


* 
* 
* 
x 
* 
* 
+ 
* 


E KERIHKIKKRIKHKK 
onlsickEkkEikEk — B BggloisiskCHQ 
Bear ickEek kA oickaikickCHl 
BARSORKESCKESHER keikeiikeiiklHl 
BARPSRCKESKESSKER I Kcktetkekkckl 
BA*I***E**EI*ER Ss *c*nettetkOkC 
BA*FT#**ER*EI®ER SS *KctnetteitckC 
BASI***E**EISER W *c*ne*de**C*C 
BASI**WE*WEISE h *c’*ne*der”*C*C 
BASI**WE*WEISER C *c*ne*der*C* 
BASIC*WE*WEISER *c*ne*der C*C 
BASIC*WE*WEISER Sc*ne*der C* 


BASIC-WE*WEISER 
BASIC-WE*WEISER 
BASIC-WEGWEISER 


SPIELENDE. 


ar ıl 


Sc*neider C* 
Schneider C*C 


Schneider C*C 
Schneider CPC 


SPIELENDE. 


Welches Wort raten? 
? Schneider CPC 
Nun Einzelzeichen tippen: 


ıIınBazosnonrepn 


un 


” 


177 


178 
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3.4.1 Bildschirmverwaltung (Screen Handling) 
3.4.1.1 Steuerung des Cursors am Bildschirm 


Programm CURSORPO demonstriert, wie der Cursor als blinkendes 
Zeichen am Bildschirm frei positioniert werden kann. Das Aus- 
führungsbeispiel positioniert das Zeichen "+" in Zeile 4 und 
Spalte 23. 


100 REM ====== Programm CURSORPO 

110 CLS : "Bildschirm loeschen 

120 PRINT "Demonstration zur Positionierung des Cursors mit + . 
130 INPUT "Welche Zeile (1,2,..,24 oben -> unten)"; 2% 

140 INPUT "Welche Spalte (1,2,..,80 links -> rechts)"; 5% 

150 LOCATE 52,2% 

160 PRINT "+" 

180 END 


Mit der Anweisung 
LOCATE Spaltennummer,Zeilennummer 


kann der Cursor direkt auf die angegebenen Bildschirmkoordina- 
ten gesetzt werden. Nach Eingabe von S%=23 und 2%=4 steht der 
Cursor links oben. 


Prinzipiell muß zwischen druckbaren und nicht-druckbaren Zei- 
chen unterschieden werden. 

Für die druckbaren Zeichen sind "normale Zeichen (Ziffern, 
Buchstaben sowie Sonderzeichen) von Grafikzeichen zu trennen, 
die beim Schneider CPC die ASCII-Codezahlen zwischen 128 und 
255 belegen; zu diesen Grafikzeichen werden z.B. auch griechi- 
sche Zeichen gezählt (etwa: CHR$(182) für lambda). 

Nicht druckbar sind die Steuerzeichen: dazu zählen u.a. alle 
Zeichen zur Druckersteuerung (abhängig vom Druckertyp) und die 
Zeichen, mit denen die BASIC-Befehlswörter in Kurzform darge- 
stellt werden (also die Token: z.B. &BF bzw. 191 für PRINT als 
BASIC-Befehl, &A5 bzw. 165 für LET sowie &40 bzw. 64 für EOF). 


" 


Zeichen 
DRUCKBARE ZEICHEN NICHT-DRUCKBARE ZEICHEN: 
bzw. Steuerzeichen 

Normale Zeichen: Grafik-Zeichen: Bildschirm- Token: 
--------------- | -------------- Steuerung: ----- 
- ASCII-Werte - ASCII-Werte - CHR$(13) Return Siehe 

VOnW32051rS127 von 128 bis 255 - CHR$(7) Beep Se 
- CHR$(77) für M - CHR$(129) für w - CHR$(24) Invers 
- CHR$(33) für ! - CHR$(205) für\ - CHR$(8) Backspace 


Druckbare Zeichen und Steuerzeichen für Schneider CPC 
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3.4.1.2 Sichere Eingaberoutine 


Programm EINGABEB zeigt folgende Maßnahmen für eine sichere 

Tastatureingabe auf: 

- Die maximale Anzahl von Eingabestellen wird mit Punkten mar- 
kiert. Jedes eingegebene Zeichen ersetzt den nächsten Punkt. 

- Hat der Benutzer diese Maximalzahl erreicht (hier 25), endet 
das Programm automatisch (Zählerschleife 260 FOR I-1 TO LM). 

- Eingabe-/Warteschleife mit INKEY$ in Zeile 280. 

- Abfrage der RETURN-Taste CHR$(13) in Zeile 300. 

Die Ausführung zu EINGABEB ist nur unvollständig ausdruckbar. 


100 REM ====== Programm EINGABEB 

110 REM ====== Vereinbarungsteil 

120 ' LM: Laenge maximal 

130 LET LE=O "Laenge eingegeben ueber Tastatur 
140 'E$: Eingegebener Text 

150 LET B$="" "Beruecksichtigter Eingabetext 
160 LET RET$=CHR$(13) 'RETURN-Taste 

170 "I: Laufvariable 

180 : 

190 REM ====== Anweisungsteil 

200 CLS 


210 PRINT "Markierte Begrenzung der Tastatureingabe." 
220 INPUT "Laenge Ihrer Tastatureingabe"; LM 
230 LOCATE 1,6 
240 PRINT "Tastatureingabe: "; 
250 FOR I=1 TO LM: PRINT "."; : NEXT I 
260 FOR I=1 TO LM 
270 LOCATE 17+I1,6 
280 LET E$=INKEY$: IF E$="" THEN 280 
290 PRINT E$ 
300 IF E$=RET$ THEN LET I=LM 
ELSE LET B$=B$+E$: LET LE=LE+1 
310 NEXT I 
320 PRINT : PRINT "Eingabe: ";B$ 
330 PRINT "Laenge der Eingabe: ";LE 
340 END 


Ausführung zu Programm EINGABEB (nur teilweise druckbar): 


Da sich die Anweisungen CLS und LOCATE auf den Bildschirm be- 
ziehen, nicht aber auf den Drucker, kann die Ausführung zum 
Programm EINGABEB hier nicht in der bei den anderen Programmen 
üblichen Form wiedergegeben werden. 
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3.4.1.3 Bildschirmmaske aufbauen 


Eine Bildschirmmaske ist ein Blankoformular, win das an vorge- 
zeigte Stellen Eingaben getippt werden können. Das Programm 
BILDMASK zeigt den kolonnenweisen Aufbau einer solchen Maske 
(Kolonne = senkrechte Spalte). 

Als erste Kolonne wird die Numerierung 1-5 untereinander aus- 
gegeben, als zweite Kolonne folgen dann die Bezeichnungen (die 
Überlagerung ist nicht druckbar). In einem dritten Schritt er- 
folgen die fünf Tastatureintragungen - wiederum untereinander. 


Codierung zu Programm BILDMASK: 


100 REM ====== Programm BILDMASK 

110 CLS:PRINT "Aufbau einer Bildschirmmaske in Einzelschritten." 
120 REM ====== Vereinbarungsteil 

130 DIM K$(5) 'Fuenf Datenfelder eines Kundensatzes 

140 LET RET$=CHR$(13) 'WagenrAUTOcklauf 

150 REM ====== Anweisungsteil 


160 PRINT "Weiter: Taste druecken"; 

170 LET E$=INKEY$: IF E$="" THEN 170 

180 CLS : LOCATE 1,11 

190 PRINT "Schritt 1: Numerierung der Datenfelder \RET\" 
200 LET E$=INKEY$: IF E$="" THEN 200 

210 CLS : LOCATE 1,5 

220 FOR I=1 TO 5 : LOCATE 3,5+I : PRINT I : NEXT I 

230 PRINT "Schritt 2: Bezeichnungen in Datenfelder \RET\" 
240 LET E$=INKEY$: IF E$="" THEN 240 

250 LOCATE 6,6 : PRINT " Kundennummer :" 

260 LOCATE 6,7 : PRINT " Kundenname:" 

270 LOCATE 6,8 : PRINT " Kontostand" 

280 LOCATE 6,9 : PRINT " Umsatz:" 

290 LOCATE 6,10 : PRINT " Letzte Rechnung:" 

300 PRINT "Schritt 3: Eintraege in Datenfelder eintippen." 
310 FOR I=1 TO 5 

320 LOCATE 24,5+I 

330 LET E$=INKEY$ : IF E$="" THEN 330 

340 IF E$=RET$ THEN 370 

350 LET K$(I)=K$(I)+E$ : PRINT E$; 

360 GOTO 330 

370 NEXT I 

380 PRINT:PRINT "Kundensatz K$ enthaelt jetzt diese 5 Eintraege:" 
390 FOR I=1 TO 5: PRINT K$(I): NEXT I 

400 END 


Aufbau einer Bildschirmmaske in Einzelschritten. 
Schritt 1: Numerierung der Datenfelder \RET\ 


l Kundennumner: 101 

2 Kundenname: KAIER 

3 Kontostand: 100 Schrittweise Überlagerung in 
4 Umsatz: 125 Ausdruck nicht darstellbar. 
5 Letzte Rechnung: 15.3.1984 
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3.4.1.4 Langsame Bildschirmausgabe 


Programm LANGSAM verwendet eine Zählerschleife, um vier Wörter 
am Bildschirm langsam Wort für Wort auszugeben. 


Codierung zu Programm LANGSAM: Ausführung zu Programm LANGSAM: 
100 REM ====== Programm LANGSAM 


110 PRINT "Langsame Bildschirmausgabe." RUN 

Langsame Bildschirmausgabe. 
120 FOR Z=1 TO 4 Vier Worte langsam ausgeben. 
130 READ T$ Programmende. 


140 PRINT T$;" "; 

150 FOR ZEIT=1 TO 500 

160 REM ZEIT-Schleife ohne Anweisung 
170 NEXT ZEIT 

180 NEXT Z 


190 DATA Vier, Worte, langsam, ausgeben. 
200 PRINT: PRINT "Programmende." : END 


3.4.2 Ausgabeformatierung 
3.4.2.1 Ausgabezeile mit PRINT 


Programm DEMO-PRI veranschaulicht die Wirkung der Trennungs- 
zeichen "," und ";" , der fünf Funktionen TAB (Tabulator), SPC 
(Space, Leerschritt), WIDTH (Druckbreite), POS (Druckposition) 
und SPACE$ (Leerstellen) sowie der Anweisung WRITE (auch alle 
Trennungszeichen drucken) auf die Ausgabezeile. 


Demonstration zur Ausgabeformatierung mit PRINT. 
Zahl eintippen? 7821.5 
Text eintippen? MBASIC 
12345678901234567890123456789012345678901234567890 
MBASIC 7821.5 
MBASIC 7821.5 
MBASIC 7821.5 
MBASIC-7821.5 

23464.5 MBASIC 


7821.5 MBASIC Ausführung zu Programm DEMO-PRI 
7821.5,'" ","MBASIC" 
MBASIC 7821.5 
MBASIC 7821.5 
MBASIC 


12345678901234567890123456789012345678901234567890 
MBASICMBASICMBASICMBASICMBASICMBASICMBASIC 
MBASICMBASICMBASIC 

MBASICMBASICMBASIC 

MBASIC 

12345678901234567890 

12345678901234567890 


1234567890 
ES nn nn 22 


delakakakaksgiaksgiggefaksiegskefekgiekggegk 
12345678901234567890123456789012345678901 234567890 
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Codierung zu Programm DEMO-PRI: 


100 REM ====== Programm DEMO-PRI 
110 PRINT "Demonstration zur Ausgabeformatierung mit PRINT." 


120 INPUT "Zahl eintippen"; R : INPUT "Text eintippen"; R$ 
130 LET S$="12345678901234567890123456789012345678901234567890"" 
140 PRINT S$ 

150 PRINT R$,R 

160 PRINT R$,,R 

170 PRINT R$;R 

180 PRINT R$;-R 

190 PRINT R*3;R$ 

200 PRINT R;" ";R$ 

210 WRITE R;" ";R$ 

220 PRINT TAB(5);R$;TAB(20);R 

230 PRINT SPC(5);R$;SPC(20);R 

240 LET R1$=SPACE$(40)+R$ : PRINT RI$ 
250 PRINT S$ 

260 FOR I=1 TO 7 : PRINT R$; : NEXT I 

270 WIDTH 20 

280 FOR I=1 TO 7 : PRINT R$; : NEXTI 

290 PRINT S$ 

300 WIDTH 80 

310 FOR I=1 TO 50 

320 PRINT "*"; ; IF POS(1)>25 THEN PRINT 
330 NEXT I 

340 PRINT S$ : END 


3.4.2.2 Verwendung des Füllstrings 


Mit einem Füllstring können wir die Druckzeile mit Leerstellen 
bzw. Blanks auf eine gewünschte Länge bringen. Bei der Ausfüh- 
rung zu Programm FUELLSTR hat die Zeile 25 Zeichen. In Pro- 
grammzeile 160 wird ein Füllstring B$ der Länge R aufgebaut, 
der mit T1$ und T2$ auf 25 Stellen Länge verkettet wird. 


Codierung zu FUELLSTR: Ausführung zu FUELLSTR: 
100 REM ====== Programm FUELLSTR RUN 
110 PRINT "Text rechtsbuendig mittels" Text rechtsbuendig mittels 
120 PRINT "Fuellstring ausgeben." Fuellstring ausgeben. 
1. Textzeile ? BASIC-WEGWEISER 
130 INPUT "1. Textzeile ";T1$ 2. Textzeile ? JETZT NEU 
140 INPUT "2. Textzeile ";T2$ Rechte Begrenzung ? 25 
150 INPUT "Rechte Begrenzung "; R BASIC-WEGWEISER 
160 FOR I=1 TO R:LET B$=B$+" ":NEXT I JETZT NEU 


170 LET T1$=RIGHT$(B$+T1$,R) 
180 LET T2$=RIGHT$(B$+T2$,R) 
190 PRINT T1$ : PRINT T2$ : END 
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3.4.2.3 Zahlen kaufmännisch runden 


Der Kaufmann fordert eine gerundete und formatierte Zahlenaus- 
gabe. Das Runden einer Zahl Z auf S Dezimalstellen genau kann 
in einer Anweisung als 100 LET Z=INT(2*%1015+0.5)/(10#s) 
geschrieben werden (10#S für "10 hoch S"). Daraus erhalten wir 
für das Runden auf 2 Stellen 100 LET 2=INT(2*100+0.5)/100. Das 
Programm RUNDZAHL löst den Rundungsablauf in vier Teilschritte 
auf und gibt sie zur Veranschaulichung aus. 


Codierung zu RUNDZAHL: Ausführung zu RUNDZAHL: 
100 REM ====== Programm RUNDZAHL RUN 

110 PRINT "Zahl zur Ausgabe runden." Zahl zur Ausgabe runden. 
120 INPUT "Zu rundende Zahl"; Z Zu rundende Zahl? 39.766 
130 INPUT "Kommastellen ns Kommastellen ?2 

140 LET Z = Z*10°S : PRINT Z 3976.6 

150 LET Z = Z+.5 : PRINT Z 3977.1 

160 LET Z = INT(Z) : PRINT Z 3977 

170 LET Z = Z/(10°S) : PRINT Z 39.77 

180 PRINT "Ende." : END Ende. 


3.4.2.4 Ausgabezeile mit PRINT USING 


Die Anweisung PRINT USING dient der formgerechten Ausgabe von 
zahlen (INTEGER, REAL) und Text (STRING). 

Programm DEMO-USI demonstriert die grundlegenden Eigenschaften 
dieser Anweisung. 


100 REM ====== Programm DEMO-USI 

110 PRINT "Demonstration zur Ausgabeformatierung mit PRINT USING." 
120 PRINT USING "####"; 12 

130 PRINT USING "####"; 1200 

140 PRINT USING "####"; 12345 

150 PRINT USING "#HHHHH.##", 750.45 

160 PRINT USING "#HHHHH.H#"; 843.745 

170 PRINT USING "HHrHHHHHHHHHH, ##"; 72501286 

180 PRINT USING "rHHH#.#"; 4 

190 PRINT USING "###.##"; 222.8, 10, 432.57 

200 PRINT USING "###.## "; 222.8, 10, 432.57 

210 PRINT USING "# #.# #4.# "1,2, 3,4,5,6,7 
220 PRINT USING "####.#4# DM £r ### KG"; 2750.4, 300 
230 LET M$="##.### % Rabatt ab ### Stueck" 

240 PRINT USING M$; 4.5, 100 

250 PRINT USING M$; 7.125, 50 

260 PRINT USING M$; 7.125, 50 

270 PRINT USING M$; R,M 

280 PRINT USING "!"; "Francs" 

290 PRINT USING "&"; "DM"; "Francs" 

300 PRINT USING "\ \", "DM", "Frances" 

310 LET M1$="###.## \ \ gleich ###.## \ Nat 
320 PRINT USING Ml$; 320, "Francs", 100, "DM" 

330 PRINT USING M1$; 31.25, "DM", 100, "Francs" 

340 PRINT "Ende." : END 
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- Maskenteil und Ausgabeteil als Bestandteile: 
120 PRINT USING "HHHHH"; 12 Anweisungszeile 
Maskenteil (Druckmaske, 
Formatstring, Formatangabe) 
Ausgabeteil (Ausgabeliste, 
Variablenliste) 


- Formatierung von Zahlen (numerischen Daten): 


# Numerus-Zeichen reserviert Platz für eine Ziffer. 
e Dezimalpunkt mit Rundung. 

“r* Sternchen anstelle von führenden Leerstellen. 

n Komma links vom . zur Bildung von Dreiergruppen. 


- Formatierung von Text (Zeichenketten, STRINGS): 
! Nur das erste Zeichen eines Textes ausgeben. 
& Feldlänge variabel entsprechend dem Text. 
\ \ Hier: 3+2=5 als Feldlänge (allgemein: N+2). 


Grundlegende Eigenschaften der Anweisung PRINT USING 


Ausführung zu Programm DEMO-USI: 
Demonstration zur Ausgabeformatierung mit PRINT USING. 


72,501,286.00 
LEE 7A) 
222.80 10.00432.57 
222.80 10.00 432.57 
1 2.0 3.0 4 5.00 6.0 7 
2750,40 DM fuer 300 KG 
4.550 % Rabatt ab 100 Stueck 
7.125 - Rabatt ab 50 Stueck 
20.000 % Rabatt ab 450 Stueck 


F 
DMFrancs 
DM Francs 


320.00 Francs gleich 100.00 DM e 
31.25 DM gleich 100.00 Francs. 
Ende 


3.4.3 Druckersteuerung 


Durch PRINT "...." wird der angegebene Text am Bildschirm ge- 
zeigt. Durch PRINT #8,"...." wird die Ausgabe auf den Drucker 
gelegt. 


100 REM ====== Programm DRUCKSTE 
110 PRINT #8,"Dieser Text wird ausgedruckt." 
120 REM ====== Programm DRUCKSTE 


130 END 
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In diesem Abschnitt wollen wir einen kleinen Schritt in Rich- 
tung auf die "unterste' Sprachebene wagen: wir betrachten die 
Zeichendarstellung und -codierung, die bitweise Verarbeitung, 
den unmittelbaren Zugriff auf Speicherplatzinhalte und den Unm- 
gang mit Maschinenprogrammen. 


3.5.1 Zeichendarstellung im ASCII 


Alle Zeichen - seien es Ziffern, Buchstaben oder auch Sonder- 
zeichen - werden im ASCII dargestellt, d.h. es wird z.B. nicht 
der Buchstabe A gespeichert, sondern dessen ASCII-Codezahl 65. 
Die Funktion CHR$ haben wir bereits in Abschnitt 3.3 (Textver- 
arbeitung) verwendet; sie gibt uns für eine Codezahl zwischen 
0 und 255 das zugehörige ASCII-Zeichen an. Programm CHR$-TE 
ermöglicht es uns, diese Funktion zu testen. In der Ausführung 
zu CHR$-TE werden alle Zeichen von Codezahl 32 bis Codezahl 
80 ausgegeben ; für Codezahl 7 ertönt nur ein 'Beep'. 


GET ZERSEB TE SEELE FTERBERITEENGEIIEN ZEN ET AEANNS 


0 von 0-31 Steuerzeichen, 

16 z.B. RETURN für CHR$(13). 

2 PP ER DE u SE Se ee a SE ee Fe; 
EN NO ee a EEE ER BE 
6A OS ABI CH DER ESS EGI EHER Er MEENZEO 
BO) PS OBERE SE TE EDV WE Ru VE Nee 
all! Ser a Hertel en ee le a nee <o 
NZ 25 VE Bee re Aa za Sy RShER 


Bsp: Codezahl 64+1=65 für A; Codezahl 48+13=61 für = 
ASCII-Zeichenvorrat mit 128 Zeichen von 0 bis 127 
Codierung und zwei Ausführungen zu Programm CHR$-TE: 
110 PRINT "Test der Funktion CHR$()." 


120 INPUT "A,E tippen fuer CHR$(A,..,E)"; A,E 
130 FOR I=A TO E: PRINT CHR$CI); : NEXTI 


140 PRINT 
150 FOR I=A TO E : PRINT RIGHT$(STR$CI),1); : NEXT I 
160 END 


Test der Funktion CHR$(). 
A,E tippen fuer CHR$(A,..,E)? 32,80 

14828" ()*+,-./0123456789: ;<=>?SABCDEFGHIJKLMNOP 
2345678901234567890123456789012345678901234567890 


Test der Funktion CHR$(). 
A,E tippen fuer CHR$(A,..,E)? 7,7 


Funktion ASC liefert als Umkehrung der Funktion CHR$ die ent- 
sprechende Codezahl. Das Zeichen ! wird als Codezahl 33 und 
das Zeichen 0 als Codezahl 48 intern gespeichert. Das ! kommt 
vor der 0, es gilt !<O . Die Wertigkeiten der Codezahlen be- 
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stimmen demnach die Sortierfolge; wir werden bei den Sortier- 
verfahren in Abschnitt 3.9 darauf zurückkommen. 
Das Programm ASCII-TE dient dem Testen der Funktion ASC. 


Codierung zu Programm ASCII-TE: 


100 REM ====== Programm ASCII-TE 

110 PRINT "Test der ASCII-Werte fuer beliebige Zeichen (O=Ende)." 
120 PRINT "Welches Zeichen? "; 

130 LET Z$=INPUT$(1) : PRINT Z$ 

140 PRINT "Darstellung von ";2$;" im ASCII intern: ";ASC(Z$) 

150 IF ASC(Z$)<>48 THEN 120 

160 PRINT "Testende." : END 


Ausführung zu Programm ASCII-TE: 


Test der ASCII-Werte fuer beliebige Zeichen (O=Ende). 
Welches Zeichen? | 

Darstellung von ! im ASCII intern: 33 

Welches Zeichen? 1 

Darstellung von 1 im ASCII intern: 49 

Welches Zeichen? # 

Darstellung von # im ASCII intern: 35 

Welches Zeichen? O 

Darstellung von O im ASCII intern: 48 

Testende. 


3.5.2 Umwandlung dezimal, binär und hexadezimal 


Das Programm DEZDUALI wandelt eine Dezimalzahl D in eine Bi- 
närzahl B um, die als 16-Elemente-Array vereinbart ist (Anwei- 
sung 140 DIM B(16) reserviert für B genau 16 Zahlkomponenten). 
Zur Umwandlung in der Schleife 160 FOR I ... 190 NEXT I wird 
D wiederholt halbiert, um bei Teilbarkeit ohne Rest eine 0 und 
sonst eine 1 nach B zu schreiben. Diese Binärzeichen 0 bzw. 1 
schreibt DEZDUALI in der Richtung der höheren Wertigkeit von 
rechts nach links nach B; deshalb auch die Schrittweite STEP-1 
in der FOR-Anweisung (Stelle 16, 15, 14, ...). 


Codierung zu Programm DEZDUAL1: 


100 REM =—==== Programm DEZDUAL1 

110 PRINT "Umwandlung einer Dezimalzahl in eine Dualzahl" 
120 PRINT "(Methode: Wiederholtes Halbieren." 

130 PRINT "Ergebnis: Binaermuster als 16-Elemente-Array)." 


140 DIM B(16) : INPUT "Welche Ganzzahl"; D 
150 IF D>65536! THEN PRINT "... kleinere Zahl." : GOTO 140 
160 FOR I=16 TO 1 STEP -1 
170 IF D/2 = INT(D/2) 
THEN LET B(I)=0 
ELSE LET B(I)=1 
180 LET D=INT(D/2) 
190 NEXT I 
200 PRINT "Umwandlung als 16-stellige Dualzahl:" 
210 FOR I=1 TO 16 : PRINT B(I); : NEXT I 
220 END 
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Ausführungen zu Programm DEZDUALI1: 


Umwandlung einer Dezimalzahl in eine Dualzahl 
(Methode: Wiederholtes Halbieren. 
Ergebnis: Binaermuster als 16-Elemente-Array). 
Welche Ganzzahl? 65535 
Umwandlung als 16-stellige Dualzahl;: 

LEE ED IP LNE EEE E14 


RUN - 
Umwandlung einer Dezimalzahl in eine Dualzahl 
(Methode: Wiederholtes Halbieren. 

Ergebnis: Binaermuster als 16-Elemente-Array). 

Welche Ganzzahl? 51 

Umwandlung als 16-stellige Dualzahl: 
0000000000 110011 


Das Programm DUALDEZ unterscheidet sich in zweifacher Hinsicht 
vom Programm DEZDUAL1: Einerseits erfolgt die Umwandlung umge- 
kehrt, andererseits liegt das Binärmuster als die Eingabegröße 
als String B$ vor, nicht aber als Array B( ). Mit MID$(B$,I,!1) 
nimmt man das jeweils nächste Zeichen von B$; da es stets eine 
0 oder 1 ist, kann dieses Zeichen mit VAL in einen numerischen 
Wert verwandelt und nach S zugewiesen werden (S für Stellenin- 
halt). Dann wird 'S mal (2 hoch (L-I))' multipliziert und der 
so errechnete Stellenwert in Zeile 170 zur Dezimalzahl D hin- 
zuaddiert. 


Codierung zu Programm DUALDE2: 


100 REM ====== Programm DUALDEZ Umwandlung 'binaer - dezimal' 


110 PRINT "Umwandlung "binaer - dezimal"'" 


120 


130 
140 


PRINT "(Binaermuster als String)." 


PRINT "Binaermuster tippen:":INPUT B$ 
LET D=0 : LET L=LEN(B$) 


(Binaermuster als String). 
Binaermuster tippen: 

? 1111111111111111 
Umwandlung dezimal: 65535 
Ende. 


150 FOR I=1 TOL : 

160 LET S = VAL(MID$(B$,1I,1)) Umwandlung 'binaer - dezimal' 
170 LETD=D+S* (2t(L-I)) (Binaermuster als String). 
180 NEXT I Binaermuster tippen: 

190 PRINT "Umwandlung dezimal:"; D ? 110011 

200 PRINT "Ende." : END Umwandlung dezimal: 51 


Ende. 


Hexadezimalziffern sind 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F. Diese 
16 Ziffern werden auch kurz Hex-Ziffern oder Sedezimal-Ziffern 
genannt (vgl. Abschnitt 1.2.3.2).. 

Das Programm HEXDEZ veranschaulicht den Umwandlungsvorgang von 
hex nach dez. In Teil 1 von HEXDEZ prüfen wir, ob die Eingabe 
in HI$ nur aus den 16 Hex-Zeichen 0123456789ABCDEF besteht. In 
Teil 2 findet die Umwandlung statt: Die Hex-Zeichen A-F werden 
durch die Dez-Zeichen 10-15 ersetzt und in Z abgelegt. Darauf- 
hin wird Z mit den jeweiligen Stellenwerten 1 (=16 hoch 0), 16 
(=16 hoch 1), 256 (=16 hoch 2), ... multipliziert und zur De- 
zimalzahl D hinzuaddiert. 


3.5 
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Codierung zu Programm HEXDEZ: 


100 
110 


120 
130 
140 
150 
160 


170 
180 


190 
200 
210 
220 


230 
240 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


390 
400 
410 


Ausführungen zu Programm HEXDEZ: 


REM ====== Programm HEXDEZ 

PRINT "Umwandlung von HEX in DEZIMAL:" 

REM ====== Vereinbarungsteil 

' H0$, Hl$: 16 Hexadezimalzeichen, umzuwandelnder Eingabetext 
'L, 2%: Laenge von Hl$, Naechstes Zeichen in Hl$ 

'D Dezimales Ergebnis 

' RICHTIG: Wahrheitswert fuer Schleifenende 

LET HO$="0123456789ABCDEF" '16 HEX-Zeichen 

INPUT "Hexadezimaler Wert"; Hl$ : LET L=LEN(HI1$) 


PRINT : PRINT "Pruefung auf Gueltigkeit:" 
LET RICHTIG = -1 
FOR I=1 TO L 
IF INSTR( HO$, MID$(H1$,I,1) ) 
THEN PRINT I;". Zeichen in ";Hl$;" korrekt." 
ELSE LET RICHTIG=O : LET I=L 


NEXT I 

IF NOT RICHTIG THEN PRINT "... falsches Zeichen." : GOTO 410 
PRINT: PRINT "Umwandlung: " 

FOR I=1 TOL 

LET Z$ = MID$(Hl$,(L-I+l),1) 'I. Zeichen nehmen 

IF Z$<= "9" THEN LET Z=VAL(Z$) "Fall 'Hex gleich Dez' 

IF 2$ = "A" THEN LET Z=10 

IF Z$ = "B" THEN LET Zell 

IF Z$ = "C" THEN LET Z=12 

IF Z$ = "D" THEN LET Z=13 

IF Z$ = "E" THEN LET Z=l4 

IF Z$ = "F" THEN LET Z=15 

LET Z = Z*(16#(I-1)) "Stellenwert multiplizieren 
PRINT "Fuer ";2$;":"; D; "um"; Z; "erhoeht." 

LET D = D+4Z 'Dezimalzahl aufaddieren 
NEXT I 

PRINT : PRINT "Ergebnis:" 


PRINT H1$;" HEX ergibt"; D; "DEZIMAL." 
PRINT "Ende." : END Umwandlung von HEX in DEZIMAL: 
Hexadezimaler Wert? FFFF 


Pruefung auf Gueltigkeit: 


Umwandlung von HEX in DEZIMAL: l . Zeichen in FFFF korrekt. 


Hexadezimaler Wert? 64 


Pruefung auf Gueltigkeit: 


2 „ Zeichen in FFFF korrekt. 
3 . Zeichen in FFFF korrekt. 
4 „ Zeichen in FFFF korrekt. 


l . Zeichen in 64 korrekt. 


2 . Zeichen in 64 korrekt. Umwandlung: 

Fuer F: O um 15 erhoeht. 
Umwandlung: Fuer F: 15 um 240 erhoeht. 
Fuer 4: O um 4 erhoeht. Fuer F: 255 um 3840 erhoeht. 
Fuer 6; 4 um 96 erhoeht. Fuer F: 4095 um 61440 erhoeht. 
Ergebnis: Ergebnis: 
64 HEX ergibt 100 DEZIMAL. FFFF HEX ergibt 65535 DEZIMAL. 


Ende, Ende. 
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Das Programm DEZHEX wandelt umgekehrt Dezimalzahlen in Hexade- 
zimalzahlen um und demonstriert dazu zwei Methoden: 

1) Die Funktion HEX$(DEZ) wandelt die Dezimalzahl DEZ in das 
16er-Zahlensystem um. 

2). Zusätzlich wird die Umwandlung anhand des in der Abbildung 
wiedergegebenen 'Vorgehen 2' schrittweise aufgezeigt.. 

Zur Bestimmung der Hexadezimalziffer HZI$ gehen wir dabei wie 
folgt vor: Hat HZI einen Wert 0,1,2,...,9, erhalten wir mit 


VORGEHENI1 : HEX-ZIFFERN FALLEN IN RICHTIGER FOLGE 5C8F AN 


3 2 1 0) 
5%16 + 12%16 + 8*16 + 15%16 5C8F hex 
abgelesen 


23695 


5*%4096 + 12%256 + 8%*%16 + 15*1 


20480 + 3072 + 128 + 5 


VORGEHEN 2: HEX-ZIFFERN FALLEN IN UMGEKEHRTER FOLGE F8C5 AN 


DEZ = (TEIL=INT(DEZ/16) * 16) + HZI=DEZ-(TEIL*16) HE$ 
23695 = (1480 16) % 15 F 
1480 = ( 92 OR 8 ß 
0 (5 RIM 12 c 
DE (0 K6h + 5 5 


Zwei Vorgehensweisen zur Umwandlung von 23695 dez in 5C8F hex 
ohne Anwendung der BASIC-Funktion HEX$ 


Codierung zu Programm DEZHEX: Ausführungen zu Programm DEZHEX: 


100 REM ====== Programm DEZHEX Umwandlung von DEZ in HEX: 
110 PRINT "Umwandlung von DEZ in HEX:" DEZimalzahl? 23695 

Probe mit Funktion HEX$: 
120 REM ====== Vereinbarungsteil 23695 ergibt 5C8F 


130 ' DEZ, HE$: Dezimalzahl, Hexadezimalzahl Umwandlung schrittweise: 
140 ' HZI, HZI$: Hexadezimalziffer num. /Zeichen HEX-Ziffer: F 


150 ' TEIL: Ganzzahl-Teil von DEZ HEX-Ziffer: 8 

160 ' CODE: ASCII-Codezahl fuer O bzw. 7 HEX-Ziffer: C 
HEX-Ziffer: 5 

170 REM ====== Anweisungsteil HEXadezimalzahl: 5C8F 


180 INPUT "DEZimalzahl"; DEZ : LET HE$="" 
190 PRINT "Probe mit Funktion HEX$:" 


.n : ", Umwandlung von DEZ in HEX: 
200 PRINT DEZ; "ergibt "; HEX$(DEZ) DEZimalzah1? 266 
210 PRINT "Umwandlung schrittweise:" Probe mit Funktion HEX$: 
220 WHILE DEZ > 0 266 ergibt 10A j 
230 LET TEIL=INT(DEZ/16) Umwandlung schrittweise: 
240 LET HZI =DEZ-(TEIL*16) De 5 
250 IF HZI>9 THEN CODE=55 ELSE CODE=48 En i 
260 LET HZI$=CHR$(CODE+HZI) armen 
270 PRINT " HEX-Ziffer: "-HZI$ HEXadezimalzahl: 10A 
280 LET HE$ =HZI$+HE$ : LET DEZ=TEIL 
290 WEND 


300 PRINT "HEXadezimalzahl: ";HE$ : END 
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CHR$(48+HZI) die entspr. Ziffer 0,1,2,...9. Hat HZI aber einen 
Wert zwischen 10 und 15, ermittelt CHR$(55+HZI) die zugehörige 
ziffer A,B,..,F. Beispiele: CHR$(55+11) ergibt CHR$(66) ergibt 
B; CHR$(48+4) ergibt CHR$(52) ergibt 4. Dabei wird berücksich- 
tigt, daß die Dezimalziffern im ASCII mit Codezahl 48 beginnen 
und die Großbuchstaben mit Codezahl 65. Die Variable CODE ent- 
hält deshalb 48 oder aber 55 (55+10 für A ergibt dann 65). 


3.5.3 Daten Bit für Bit verarbeiten 


Ergänzend zu Programm DEZDUAL1 wollen wir zur "Umwandlung von 
Dezimalzahlen in Dualzahlen'" die Programme DEZDUAL2, DEZDUAL3 
und DEZDUAL4 betrachten. Diese drei Programme zeigen, wie wir 
den logischen Operator AND zur Verarbeitung einzelner Bits 
verwenden können. 


Im Ausführungsbeispiel zu Programm DEZDUAL2 wird die Zahl 200 
in die Dualzahl 11001000 umgewandelt. Die Codierung zeigt, daß 
die Umwandlung in einer WHILE..WEND-Schleife über die Anwei- 
sungsfolge 

170 WHILE I ungleich 1 

180 LET I=I/2 

190 PRINT ABS( (I AND D) = I); 

200 WEND 
mit den Zahlen D=200 und I=256 als Anfangswerten erfolgt. Die 
Anweisung 190 führt mit I AND D eine logische Operation über 
"logisch UND" durch. Dabei werden die INTEGER-Zahlen in I und 
D binär dargestellt und Bit für Bit mit AND (logisch UND) ver- 
knüpft. Für die Anfangswerte I=128 und D=200 wird demnach die 
Operation (I AND D) als (128 AND 200) computerintern binär als 
(10000000 AND 11001000) bitweise ausgeführt. Nur die 8. Stelle 
ergibt 1 als Stellenergebnis (1 AND 1 ergibt 1), während alle 
anderen Stellenergebnisse 0 ergeben. (10000000 AND 11001000) 
ergibt somit 10000000 bzw. 128 als Ergebnis. 
In Zeile 190 wird jetzt der Vergleich (128=128)? ausgeführt 
mit dem Ergebnis WAHR bzw. TRUE bzw. -1. 
Dann wird in 190 der Absolutbetrag ABS(-1) gleich 1 ermittelt 
und mit PRINT 1; ausgegeben. 
Diese bitweise Manipulation mittels AND wiederholt sich bis 
I den Wert 1 erreicht hat. Die ersten drei Schleifendurchläufe 
werden durch die Abbildung wiedergegeben. 


100 REM ====== Programm DEZDUAL2 

110 PRINT "Umwandlung einer Dezimalzahl in eine Dualzahl' 
120 PRINT "(Methode: Vergleichen mit logisch UND." 

130 PRINT "Ergebnis: Binaermuster als 8 Einzelzahlen)." 


140 INPUT "Ganzzahl < 256"; D 

150 LET I=256 

160 PRINT D;" als 8-stellige Dualzahl:" 
170 WHILE I <> 1 

180 LET I=1/2 

190 PRINT AaBS( (I AND D) = I); 

200 WEND 

210 PRINT : PRINT "Ende." : END 
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Ausführung zu Programm DEZDUAL2: 


Umwandlung einer Dezimalzahl in eine Dualzahl 
(Methode: Vergleichen mit logische UND. 
Ergebnis: Binaermuster als 8 Einzelzahlen),. 
Ganzzahl < 256? 200 
200 als 8-stellige Dualzahl: 
110010009 


Ende, 

Schleifendurchlauf: Bitweise Verknüpfung (I AND D): 
IS 2DURCHELAUR: 12128 7Und D=2002 212072020707.02070 =128 
(I AND D) ergibt I E00 E000 =200 
(I = I) ergibt -1 bzw. TRUE.  -------------------------- 
ABS(-1) ergibt 1. 120205050202050 =128 
2. DURCHLAUF: I=64 und D=200. 02120202020=2020 =u94 
(I AND D) ergibt I. 121202001202020 =200 
(I = I) ergibt -1 bzw. TRUE. -------------------------- 
ABS(-1) ergibt 1. 0102050708050 = 64 
3. DURCHLAUF: I=32 und D=200. 0205120205072050 =32 
(I AND D) ergibt 0. 121202051202.050 =200 
(0 AND I) ergibt 0 bzw. FALSE. -------------------------- 
ABS(0) ergibt 0. 0707202020702020 = 0 


Anweisung 190 PRINT ABS((I AND D)=I); von Programm DEZDUAL2 
Beispiel zur bitweisen Verknüpfung mittels AND 


Die logische Operation (I AND D) wird in einer Schleife wie- 
derholt ausgeführt. Dabei bleibt D=200 konstant, während I die 
8 Werte 128=10000000, 64=01000000, 32=00100000, 16=00010000, 
8=00001000, 4=00000100, 2=00000010 und 00000001 annimmt. 

I wirkt wie ein F it er ,„ der mittels UND bei jedem neuen 
Schleifendurchlauf eine ggf. vorhandene "1" in einer anderen 
Bitposition herausfiltert: in Position 8, 7, 6, ..., 1. 

Ebenso kann man I als Maske auffassen, die über eine zu 
prüfende Variable (hier über D) gelegt wird. 


Codierung zu Programm DEZDUAL3: 


100 REM ====== Programm DEZDUAL3 

110 PRINT "Umwandlung einer Dezimalzahl in eine Dualzahl" 
120 PRINT "(Methode: Exponent und logisch UND." 

130 PRINT "Ergebnis: Binaermuster als 8 Einzelzahlen)." 


140 INPUT "Ganzzahl unter 256"; D 
150 PRINT "8-stellige Dualzahl:" 
160 FOR I=7 TO O STEP -1 

170 PRINT SGN(D AND 2TI); 

180 NEXT I 

190 PRINT : PRINT "Ende." : END 
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Programm DEZDUAL3 dient demselben Zweck wie Programm DEZDUAL2, 
nur wird hier die AND-Operation 

170 PRINT SGN(D AND (2 hoch I)); 
geschrieben. Als Filter bzw. Maske dient wieder 128 (2 hoch 
7 ergibt 128), 64 (2 hoch 6 ergibt 64), ... 


Die Programme DEZDUAL2 und DEZDUAL3 konnten nur Dezimalzahlen 
bis maximal 256 in Binärzahlen umwandeln. Programm DEZDUAL4 
hebt die Begrenzung von 256 (=2 hoch 8) auf und wandelt Zahlen 
bis maximal 65536 (=2 hoch 16) um. 


Ausführung zu Programm DEZDUAL3: 


Umwandlung einer Dezimalzahl in eine Dualzahl 
(Methode: Exponent und logisch UND. 
Ergebnis: Binaermuster als 8 Einzelzahlen). 
Ganzzahl unter 256? 200 
8-stellige Dualzahl: 

11001000 
Ende. 


Codierung zu Programm DEZDUAL4: 


100 REM ====== Programm DEZDUAL4 

110 PRINT "Umwadlung einer Dezimalzahl in eine Dualzahl" 
120 PRINT "(Methode: Exponent und logisch UND; Zerlegen." 
130 PRINT "Ergebnis: Binermuster als 16 EInzelzahlen)." 


140 INPUT "Ganzzahl unter 65536"; ZAHL : PRINT 
150 BYTELINKS = INT (ZAHL/256) 

160 PRINT "Hoeherwertiges linkes Byte"; BYTELINKS 
170 PRINT "als Dualzahl: "; 

180 LET D=BYTELINKS : GOSUB 1000 

190 LET BYTERECHTS = ZAHL - BYTELINKS*256 : PRINT 


200 PRINT "Niederwertiges rechtes Byte"; BYTERECHTS 
210 PRINT "als Dualzahl: "; 

220 LET D=BYTERECHTS : GOSUB 1000 

230 END 


1000 FOR I=7 TO O STEP -1 '"Dualzahl bilden 
1010 PRINT SGN(D AND 241); 

1020 NEXT I 

1030 RETURN 

1040 INPUT "Ganzzahl unter 65536"; ZAHL 


Ausführung zu Programm DEZDUALA4: 


Umwadlung einer Dezimalzahl in eine Dualzahl 
(Methode: Exponent und logisch UND; Zerlegen. 
Ergebnis: Binermuster als 16 EInzelzahlen). 
Ganzzahl unter 65536? 32267 


Hoeherwertiges linkes Byte 126 
als Dualzahl: © 1 1111710 
Niederwertiges rechtes Byte 11 
als Dualzahll: 00001011 
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3.5.4 Unmittelbarer Zugriff auf Speicherinhalte 
3.5.4.1 Stufe 1: Freien Speicherplatz überprüfen 


Der wiedergegebene direkte Dialog gibt ein Beispiel, wie durch 
Anwendung der Funktion FRE(0) der noch freie Speicherplatz ab- 
gefragt werden kann. 


Vor dem Laden unseres Programmes VERBRAU sind noch 43529 Bytes 
frei, danach nur noch 43397 Bytes. Nach der Ausführung bleiben 
noch 43370 Bytes übrig. Diese Angaben beziehen sich auf einen 
Schneider CPC 464 mit Vortex Speichererweiterung. 

Die sieben Anweisungen des Programms VERBRAU (Abschnitt 3.1.1) 
nehmen somit genau 132 Bytes an RAM-Speicherplatz in Anspruch 
(43529 minus 43397 ergibt 132). 

Die drei bei der Ausführung mit den Werten 60, 346 und 17.341 
belegten Variablen T, K sowie D beanspruchen 27 Bytes (43397 
minus 43370 ergibt 27), d.h. 9 Bytes je Variable. 


PRINT FRE(O) PRINT PEEK(-12288) 
43529 102 
PRINT PEEK(&D000) 
LOAD "VERBRAU" 102 
PRINT -12288+65536 
PRINT FRE(O) 53248 
43397 PRINT PEEK(53248) 
102 
RUN 
Eingabe: Gefahrene km 
? 346 
Ausgabe: Liter/100 km 
17.341 
10 LET T=60 
PRINT FRE(O) 20 PRINT "Eingabe: gefahrene km" 
43370 30 INPUT K 
40 LET D=100*T/K 
CLEAR 50 PRINT "Ausgabe: Liter/100 km" 
PRINT FRE(O) 60 PRINT D 
43397 70 END 


PRINT HIMEM 
43899 


3.5.4.2 Stufe 2: Einzelne Speicherplatzinhalte mit PEEK lesen 


PEEK(53248) gibt den Inhalt des Speicherplatzes mit der Adres- 
se 53248 wieder: mit PRINT PEEK(53248) als Direktanweisung 
oder aber mit 20 PRINT "INHALT VON PLATZ 53248: ";PEEK(53248) 
als Programmanweisung. 

Die Anweisung 50 LET F=PEEK(53248) ordnet den Wert der Varia- 
blen F zu und 70 IF PEEK(53248)=9 THEN.. fragt den Wert ab. 


Der Dialog zeigt, daß PEEK(53248) die gleiche Bedeutung wie 
PEEK(-12288) und wie PEEK(&HDO000) hat. &HDO00 als Hexadezimal- 
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Die Zählerschleife 
10 FOR I=368 TO 512: PRINT I;": ";PEEK(I);: NEXT I 
gibt den Inhalt der Speicherplätze 368 bis 512 aus. Dieser de- 
zimalen Adreßangabe entspricht die hexadezimale Angabe von 170 
bis 200, die zur Unterscheidung als "&H179 bis &H200" bzw. als 
"8170 bis &200" geschrieben wird. Bei Ausführung der zZähler- 
schleife erscheinen ASCII-Codezahlen zwischen 0 und 255. Aus 
welchem Grunde? 
- 255 dez bzw. &FF hex ist die größte in einem Speicherplatz 
bzw. Byte unterzubringende Zahl. 
- Ab Adresse 368 bzw. &170 legt Schneider BASIC Anwenderpro- 
gramme ab (Beispiel: Schneider CPC 464). 
- Alle Befehlsworte werden als Token durch Codezahlen 
verkürzt gespeichert (z.B. PRINT als &BF, LET als 8A5). 


Anstelle von z.B. &H... kann auch kurz &... eingegeben werden. 


Die Zählerschleife 

30 FOR Z=1 TO 7: LET A(Z)=PEEK(767+2) : NEXT 2 
speichert die Inhalte der Speicherplätze 768, 769, ... in den 
Array A() ab. 


3.5.4.3 Stufe 3: Zusammengehörige Speicherplatzinhalte lesen 


Programm DATPEEK wendet die Funktionen PEEK und VARPTR an, um 
Daten wie z.B. den String "WEGWEISER" nicht über ihre Namen zu 
lesen, sondern unmittelbar über ihre Internspeicher-Adressen. 


Codierung zu Programm DATPEEK: 


100 
110 
120 


130 
140 
150 
160 
170 
180 
190 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


REM ====== Programm DATPEEK 
PRINT "Daten nicht ueber Angabe ihres Namens lesen," 
PRINT "sondern direkt ueber ihre Speicheradressen.": PRINT 


INPUT "Welche Ganzzahl (Datentyp INTEGER)"; Z% 

LET ADR%=VARPTR(Z%) 

PRINT "Ganzzahl Z% belegt 2 Bytes ab Adresse:"; ADR% 

LET DATI=PEEK(ADR%) : LET DAT2=PEEK(ADR%+1) 

PRINT "Unter Adresse"; ADR%; "gespeichert:"; DATI 

PRINT "Unter Adresse"; ADR%+1; "gespeichert:"; DAT2 

PRINT "Probe: 256 *";DAT2;" +";DAT1;"ergibt'"';256*DAT2 + DATI 


PRINT: INPUT "Welcher Text (Datentyp STRING)"; T$ 
LET ADR%=VARPTR(T$) ” 
LET LAENGZ=PEEK(ADR%): NIEDBZ=PEEK(ADR%+1): HOEHBZA=PEEK(ADR%+2) 
PRINT "Unter Adresse"; ADR%; "als Laenge gespeichert:'"; LAENG% 
PRINT "Unter Adresse"; ADR%+1;"als niedriges Adressbyte:'"'; NIEDB% 
PRINT "Unter Adresse"; ADR%+2;"als hoeheres Adressbyte:"; HOEHBA 
LET ADRSTRING = 256*HOEHB% + NIEDB% 
PRINT "Speicheradresse des Strings:"; ADRSTRING 
FOR I=0 TO LAENGA-1 

PRINT "Unter Adresse" ;ADRSTRING+I;"gespeichert: ";CHR$(PEEK(ADRSTRING+I)) 
NEXT I 
PRINT "Ende." : END 
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Ausführung zu Programm DATPEEK mit Prüfung durch PEEK: 


Daten nicht ueber Angabe ihres Namens lesen, 
sondern direkt ueber ihre Speicheradressen. 


Welche Ganzzahl (Datentyp INTEGER)? 513 
Ganzzahl Z% belegt 2 Bytes ab Adresse: 26225 
Unter Adresse 26225 gespeichert: 1 

Unter Adresse 26226 gespeichert: 2 

Probe: 256 * 2 + 1 ergibt 513 


Welcher Text (Datentyp STRING)? WEGWEISER 

Unter Adresse 26258 als Laenge gespeichert: 9 

Unter Adresse 26259 als niedriges Adressbyte: 252 

Unter Adresse 26260 als hoeheres Adressbyte: 201 

Speicheradresse des Strings: 51708 

Unter Adresse 51708 gespeichert: W 

Unter Adresse 51709 gespeichert: E 

Unter Adresse 51710 gespeichert: G 

Unter Adresse 51711 gespeichert: W Anmerkung: : 
Unter Adresse 51712 gespeichert: E Die Funktion VARPTR ist 
Unter Adresse 51713 gespeichert: I in Schneider BASIC nicht 
Unter Adresse 51714 gespeichert: S verfügbar, wohl aber in 
Unter Adresse 51715 gespeichert: E MBASIC und Mallard MASIC. 
Unter Adresse 51716 gespeichert: R Das Programm DATPEEK läuft 


Ende. aus diesem Grunde nur unter 
MBASIC bzw. Mallard BASIC 
PRINT PEEK(51708) auf dem Schneider CPC bzw. 
87 auf dem JOYCE. 
MBASIC und Mallard BASIC 
PRINT PEEK(26259) sind von Diskette zu laden. 


Die Umrechnung von HEX nach DEZ kann mit der umseitig wieder- 
gegebenen Tabelle wie folgt vorgenommen werden: 
1. Beispiel: &HFF69 - dezimal 65385 
FF (Zeile unten, Spalte rechts) ergibt 65280 als unteren 
Tabellenwert, da FF das 1. Ziffernpaar ist. 
69 (Zeile 6 und Spalte 9) ergibt 105 als oberen Wert, 
da 69 das 2. Paar ist. 
65280+105 ergibt dezimal 65385. 


2. Beispiel: &H800 - dezimal 2048 
08 (obere Zeile O0 und Spalte 8) ergibt 2048 als unteren 
Tabellenwert, da 08 das 1. Paar ist. 
00 (obere Zeile und linke Spalte) ergibt 0. 
2048+0 ergibt dezimal 2048. 


3.5.4.4 Stufe 4: Speicherplatzinhalte mit POKE schreiben 


PEEKen können wir Speicherplätze des RAM wie des ROM, während 
umgekehrt nur Speicherplätze des RAM gePOKEt und damit neu be- 
schrieben werden können. 
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POKE 768,1 speichert die 1 in den Speicherplatz mit der Adres- 
se 768 ab. Man sagt: "poke die 1 nach 768" (nicht schön, aber 
kurz). Das zweite Argument muß zwischen O0 und 255 liegen. Die 
Anweisung POKE PLATZ,ZAHL speichert den Inhalt von ZAHL an die 
Adresse PLATZ ab. Die Ausgabeschleife 

100 FOR I=1 TO 7 : READ C : POKE (767+2),C : NEXT I 

110 DATA 101,6,101,6,133,8,96 
speichert die 7 in der DATA-Zeile angegebenen Zahlen in die 
Speicherplätze unter den Adressen 768,769,... ab. 


Vor jedem Poken muß überlegt werden, ob nicht Speicherinhalte 
verändert werden, die für die Ablaufsteuerung wichtig sind. 


3.5.4.5 Stufe 5: Aufruf von Maschinenprogrammen mit CALL 


Mit der Anweisung 

200 CALL ROUTINEI(Z) 
rufen wir (to call) ein Maschinenprogramm auf, dessen Startbe- 
fehl im Speicherplatz unter Adresse &HD000 bzw. dezimal 53248 
abgelegt ist. Dem Aufruf des Maschinenprogramms ROUTINE1I muß 
z.B. folgende Anweisungsfolge vorausgehen: 

180 LET 2=12345 

190 LET ROUTINE = &HDO00 
Damit wird nach Z eine Zahl 1345 zugewiesen, die beim späteren 
Aufruf dann an das Maschinenprogramm übergeben wird (in 180). 
Außerdem wird der Wert 53248 (=&HD000) der Variablen ROUTINE 
als Startadresse des Maschinenprogramms zugewiesen. 


Auf das Erstellen von Maschinenprogrammen in Assembler können 
wir in dieser »BASIC-Einführung nicht eingehen. 


3.5.4.6 Stufe 6: Maschinenroutinen mit DEF USR definieren 


Wir haben bereits zwei Arten von selbstdefinierten Funktionen 
kennengelernt: 

Funktionen mit REAL-Zahlen als Parametern (Funktion FNERHOEH 
in Abschnitt 3.1.4.2). 

Funktionen mit STRINGS als Parametern (Funktion FNGROSS$() in 
Abschnitt 3.1.4.2). 

Mit der Anweisung DEF USR4 kann man in BASIC eine spezielle 
Funktion (mit Nummer 4) vereinbaren, die es ermöglicht, später 
beim Funktionsaufruf mittels USR4 zu der Speicheradresse zu 
verzweigen, die mittels DEF USR4 vereinbart worden ist. 


3 


Programmierkurs 
mit Schneider 
BASIC und MBASIC 


53 Tom 1 1 
ERST BE 
vn 


3.5 Maschinennahe Programmierung 
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3.13 Verkettete Dateien 
3.14 Gekettete Liste als Linked List (Namensdatei) 


3.15 Binärer Baum (Nummerndatei) 
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3.6.1 Programme auf Fehler überprüfen 
3.6.1.1 Programmtest und Fehlersuche 


Es gibt zwei Arten von Programmtests: 

Auf der einen Seite den Schreibtischtest bzw. 
'Trockentest', bei dem der Programmlauf gedanklich ohne Compu- 
ter durchgespielt wird und bei dem man dabei die Variablenwer- 
te "auf einem Stück Papier" notiert. 

Auf der anderen Seite den Computertest, bei dem man das Pro- 
gramm mit Testwerten laufen läßt. Wir wenden uns dem Computer- 
test zu. 


Nach Beendigung des Testlaufes kann man sich die Variablenwer- 
te (z.B. die Werte von D und D$) zeigen lassen, in dem man in 
Direktausführung 

PRINT D, D$ 
eintippt. Soll während der Ausführung angehalten werden, damit 
die Variablenwerte kontrolliert werden können, kann man STOP- 
Anweisungen einfügen. 

171 STOP 

180 ... Zeile, in der ein Fehler vermutet wird ... 

181 STOP 
Die Ausführung hält vor und nach Zeile 180 an: wir können wie- 
der PRINT D,D$ eintippen, um zu sehen, was sich in Zeile 180 
ereignet hat. Mit CONT setzen wir dann die Ausführung fort. 
Auf diese Weise können wir uns von einem STOP zum anderen vor- 
tasten, 


Mit dem Trace-Lauf gibt uns BASIC die Zeilennummern am Bild- 
schirm aus, die bei der Programmausführung gerade durchlaufen 
werden. Mit 

TRON (für TRace ON) 
schalten wir diese Betriebsart ein und mit 

TROFF (für TRace OFF) 
wieder aus. 


Trace-Lauf zu Programm KAPITALI von Abschnitt 3.1.3.1: 


RUN 

[100][110]Kapitalien bis zur Verdopplung. 
a Kapital? 50000 
[180]Jahreszinssatz: 29 

[190][200][210][220] 54500 

[230][210][220] 59405 


[230][210][220] 64751.5 160 REM ====== Anweisungsteil 
[230][210])[220]) 70579.1 170 INPUT "Eingesetztes Kapital"; K 
[230][210][220] 76931.2 180 INPUT "Jahreszinssatz: 2 3B 
[230][210][ 220] 83855 190 LET KE = 2*K 
[230][210][ 220] 91402 
[230][210][220]) 99628.1 200 WHILE K<KE "Schleifenbeginn 
[230][210][220] 108595 210 LET K = K+K*P/100 
[230][240]Ende nach Verdopplung. 220 PRINT He: 

230 WEND "Schleifenende 


240 PRINT "Ende nach Verdopplung." : END 
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3.6.1.2 Fehlerbehandlung 


Tippen wir an der Tastatur 20 LET A="100" ein und lassen wir 
dieses Ein-Zeilen-Programm mit RUN laufen, erscheint am Bild- 
schirm die Fehlermeldung "Type mismatch in 20" mit sofortigem 
Abbruch der Programmausführung. Tippen wir dann PRINT ERR, so 
erscheint als Antwort die Meldung "13" als Fehlernummer bzw. 
Fehlercode. 

Wir wollen dieses "'Herausfliegen aus dem Programm' verhindern 
und den Fehler innerhalb des Programms selbst behandeln: 


10 ON ERROR GOTO 500 
20 LET A="100" 

30 ... 

80 ON ERROR GOTO 0 
90 END 


500 IF ERR<?>13 THEN 600 

510 PRINT "Fehler: STRING einer REAL-Variablen zugewiesen." 
520 RESUME NEXT 

600 PRINT "Fehlercode: "; ERR 

610 PRINT "Zeilennummer mit Fehlerursache: "; ERL 

620 PRINT "Weiter mit RETURN" : INPUT E$ 

630 RESUME 80 


Nach Ausführung der Anweisung ON ERROR GOTO wird beim Auf- 
treten eines Fehlers nach Zeile 500 verzweigt, in welcher die 
Fehlerbehandlungs-Routine beginnt. BASIC stellt in einer Va- 
riablen ERR (ERR für ERRor) den jeweiligen Fehlercode zur 
Verfügung (wichtige Fehlercodes sind im Handbuch am Ende an- 
geführt). Ist ERR=13 „ geben wir in 510 eine Mitteilung aus, 
um über 520 RESUME NEXT mit der nächsten Zeile nach der Feh- 
lerzeile fortzufahren, also mit Zeile 30. 

Ist ERR ungleich 13, geben wir den in ERR stehenden Fehlerco- 
de (Zeile 600) sowie die in ERL stehende Nummer der fehler- 
verursachenden Zeile (ERL für ERror Line) aus. Dann wird nach 
Durchlaufen eines Wartepunktes (Zeile 620) über die Anweisung 
630 RESUME 80 der Ablauf mit Zeile 80 fortgesetzt. 


1) Fehlerbehandlung eröffnen: 
10 ON ERROR GOTO 500 


2) Fehlerbehandlungsroutine ab Zeile 500 ... 
Fehlercode in ERR abfragen. 
Fehlerzeile in ERL abfragen. 
Fehlerhinweise ausgeben. 


3) Programmablauf fortsetzen mit RESUME: 
RESUME NEXT . Folgezeile nach fehlerverursachender Zeile. 
RESUME 80 Angegebene Zeilennumner. 
RESUME Fehlerverursachende Zeile selbst. 


4) Fehlerbehandlung schließen: 
80 ON ERROR GOTO 0 


Fehlerbehandlung über das Anwenderprogramm in vier Schritten 
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3.6.2 Programme zu einem Programm-System verbinden 


Schneider BASIC stellt die Anweisungen MERGE und CHAIN bereit, 
um Programme zu einem Programm-System bzw. zu einer Programm- 
Bibliothek zu verbinden. 

Die Grundlagen hierzu wollen wir an einfachen Programmbeispie- 
len darstellen. 


Dialog zum Mischen von MODULNEU nach MODULALT: 
LOAD "MODULALT" 


LIST 


110 PRINT "Beginn Programm MODULALT." 

120 PRINT "ALT$, ALT, ZAHL: ";ALT$;ALT;ZAHL 
130 LET ALT$="Text alt": ALT=111: ZAHL=111 
140 PRINT "NEU$, NEU: ";NEU$;NEU 

150 PRINT "ALT$, ALT, ZAHL: ";ALT$;ALT;ZAHL 
160 PRINT "Ende Programm MODULALT." 


RUN 

Beginn Programm MODULALT. 

ALT$, ALT, ZAHL: O0 O0 

NEU$, NEU: O0 

ALT$, ALT, ZAHL: Text alt 111 111 
Ende Programm MODULALT. 


LOAD "MODULNEU" 


RUN 

Beginn Programm MODULNEU. 

NEU$, NEU, ZAHLE 0 0 

PRINT ALT$, ALT: O 

NEU$, NEU, ZAHL: Text neu 999 999 
Ende Programm MODULNEU. 


LIST 

1000 REM ====== Programm MODULNEU 

1010 PRINT "Beginn Programm MODULNEU.'" 

1020 PRINT "NEU$, NEU, ZAHL: ";NEU$;NEU;ZAHL 
1030 PRINT "ALT$, ALT: ";ALT$+ALT 

1040 LET NEU$="Text neu": NEU=999: ZAHL=999 
1050 PRINT "NEU$, NEU, ZAHL: ";NEU$;NEU;ZAHL 
1060 PRINT "Ende Programm MODULNEU." : END 


LOAD "MODULNEU" RUN 
Beginn Programm MODULALT. 

SAVE "MODULNEU",A ALT$, ALT, ZAHL: O0 0 
NEU$, NEU: O0 

LOAD "MODULALT" ALT$, ALT, ZAHL: Text alt 111 111 
Ende Programm MODULALT. 

MERGE ""MODULNEU" Beginn Programm MODULNEU. 


NEU$, NEU, ZAHL: O 111 

PRINT ALT$, ALT: Text alt 111 
NEU$, NEU, ZAHL: Text neu 999 999 
Ende Programm MODULNEU. 
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3.6.2.1 Programme mit MERGE einmischen 


Mit der Anweisung MERGE wird ein im Hauptspeicher befindliches 

Programm durch ein auf Diskette abgelegtes Programm wie folgt 

überlagert: 

- Zeilen mit gleichen Zeilennummern werden überschrieben, d.h. 
durch Zeilen des Diskettenprogramms ersetzt. 

- Zeilen mit ungleichen Nummern werden hinzugefügt. 


Zu MERGE ein Beispiel in drei Schritten: 

1) Wir laden das Programm MODULALT und lassen es ausführen: 

die Variablen ALT$, ALT und ZAHL erhalten die Werte "Text alt" 

bzw. 111 zugewiesen. 

2) Jetzt laden wir das Programm MODULNEU. Die Ausführung zeigt 

uns „ daß durch diesen Ladevorgang alle bislang im Hauptspei- 

cher verfügbaren Variablenwerte zerstört werden. 

3) Nun speichern wir das Programm MODULNEU mit der Anweisung 

SAVE "MODULNEU",A im ASCII-Code (deshalb der Parameter A) ab. 

Dann mischen wir durch die Anweisungsfolge 
LOAD "MODULALT" 

MERGE "MODULNEU" 

das Programm MODULNEU zusätzlich zum Programm MODULALT in den 

Hauptspeicher ein. 

Die Ausführung zeigt zwei Wirkungen von MERGE: 

- Im Hauptspeicher stehen die Anweisungen 100-160 (MODULALT), 
gefolgt von den Anweisungen 1000-1060 (MODULNEU). Zeilen mit 
ungleichen Zeilennummern werden durch MERGE demnach hinzuge- 
fügt. 

- Vom Programm MODULALT erzeugte Variablenwerte werden vom da- 
zugemischten Programm MODULNEU "verstanden'; hier sind dies 
die Variablen ZAHL, ALT$ UND ALT. 


Bei gleicher Zeilennumerierung der Programme MODULALT und MO- 
DULNEU wäre nach Ausführung von MERGE das gesamte Programm MO- 
DULALT überschrieben worden und damit 'verloren' gegangen. 


Gemeinsam mit RENUM können wir MERGE benutzen, um oft benötig- 

te Routinen wie Druckersteuerung, Bildschirmgestaltung usw. in 

neue Programme hinzuzufügen: 

- Vor dem Speichern einer ROUTINE wird diese z.B. mittels 
RENUM 30000 'hoch' durchnumeriert. 

- Mittels MERGE "ROUTINE'" fügen wir die ROUTINE in das ru- 
fende Programm an. 

- Durch GOSUB 30000 können wir die ROUTINE dann als neues 
Unterprogramm zur Ausführung bringen. 


3.6.2.2 Programme mit CHAIN verketten 


Mittels CHAIN kann ein Programm während des Programmlaufs ein 
anderes Programm von Diskette in den Hauptspeicher laden. Das 
Ausführungsbeispiel zeigt, daß mit Ausführung der Anweisung 
170 CHAIN "MODULNEU" 

das Programm MODULNEU geladen, ausgeführt und das rufende Pro- 
gramm MODULALT gelöscht wird. Die Variablen ALT$, ALT und ZAHL 
sind im Programm MODULNEU unbekannt. Es findet demnach keine 
Übergabe von variablenwerten statt. 
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Dialogprotokoll zu CHAIN ohne Variablenübergabe: 


LOAD "MODULNEU" RUN 
Beginn Programm MODULALT. 

SAVE "MODULNEU" ALT$, ALT, ZAHL: O0 O0 
NEU$, NEU: O 

LOAD "MODULALT" ALT$, ALT, ZAHL: Text alt 111 111 
Ende Programm MODULALT. 

170 CHAIN "MODULNEU" Beginn Programm MODULNEU. 


NEU$, NEU, ZAHL: O0 O0 

PRINT ALT$, ALT: O 

NEU$, NEU, ZAHL: Text neu 999 999 
LIST Ende Programm MODULNEU. 


1000 REM ====== Programm MODULNEU 

1010 PRINT "Beginn Programm MODULNEU." 

1020 PRINT "NEU$, NEU, ZAHL: ";NEU$;NEU;ZAHL 
1030 PRINT "PRINT ALT$, ALT: ";ALT$;ALT 

1040 LET NEU$="Text neu": NEU=999; ZAHL=999 
1050 PRINT "NEU$, NEU, ZAHL: ";NEU$;NEU;ZAHL 
1060 PRINT "Ende Programm MODULNEU." : END 


3.6.2.3 Gemeinsame Variablen mit COMMON vereinbaren 


Mit der COMMON-Anweisung können wir vereinbaren, welche Varia- 
blenwerte vom rufenden an das gerufene Programm zu übergeben 
sind. 
Wie unser Beispiel zeigt, werden durch die Anweisungsfolge 

170 COMMON ZAHL,ALT$ 

180 CHAIN "MODULNEU" 
die Werte der Variablen ZAHL und ALT$ von MODULALT an MODULNEU 
übergeben, während die Variable ALT unbekannt bleibt. 


CHAIN bietet zahlreiche weitere Möglichkeiten (wie ALL: alle 
Variablen übergeben, MERGE, DELETE, ZeilenNR, ...), auf die 
wir hier nicht eingehen können. 


Dialogprotokoll zu CHAIN und COMMON: 


LOAD "MODULALT" RUN 

h Beginn Programm MODULALT. 
170 COMMON ZAHL, ALT$ ALT$, ALT, ZAHLE O0 0 
180 CHAIN "MODULNEU" NEU$, NEU: O0 


ALT$, ALT, ZAHL: Text alt 111 111 
Ende Programm MODULALT. 
Beginn Programm MODULNEU. 
NEU$, NEU, ZAHL: O 111 
PRINT ALT$, ALT: Text alt O 
NEU$, NEU, ZAHL: Text neu 999 999 
LIST Ende Programm MODULNEU. 
1000 REM ====== Programm MODULNEU 
1010 PRINT "Beginn Programm MODULNEU." 
1020 PRINT "NEU$, NEU, ZAHL: ";NEU$;NEU;ZAHL 
1030 PRINT "ALT$, ALT: ";ALT$;ALT 
1040 LET NEU$="Text neu": NEU=999:; ZAHL=999 
1050 PRINT "NEU$, NEU, ZAHL: ";NEU$;NEU;ZAHL 
1060 PRINT "Ende Programm MODULNEU." : END 
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Mit der Tabellenverarbeitung wenden wir uns einer komplexeren 
Datenstruktur zu, die als Tabelle, Feld, Array, Bereich, Liste 
oder Matrix/Vektor bezeichnet wird. 


3.7.1 Tabellenverarbeitung im Überblick 


In Abschnitt 1.3.2.2 hatten wir als wichtige Datenstruktur den 
Array kennengelernt. Einen Array können wir uns als Regal mit 
mehreren Schubfächern als Elementen vorstellen. 


Implizit können Arrays durch die Typzeichen %, ! und $ verein- 
bart werden (vgl. Abschnitt 2.3.1): Je nach Inhalt der Fächer 
sind zu unterscheiden: 
- Integer-Array (Ganzzahl, Name endet mit Typzeichen %, 
Beispiel M?®. 
- Real-Array (Dezimalzahl, Name endet mit ! oder aber 
ohne Typzeichen, Beispiele M! bzw. M). 
- String-Array (Text bzw. Zeichenkette, Name endet mit $, 
Beispiel M$). 


Eine am Programmbeginn stehende DIM-Anweisung legt den Array- 
Typ fest (durch %, ! bzw. $ am Ende des Namens) sowie die Aus- 
dehnung bzw. Dimension. In BASIC sind bis zu 255 Dimensio- 
nen erlaubt. DIM M(4) richtet einen Array mit 5 Elementen zur 
späteren Aufnahmen von Dezimalzahlen ein, wobei die Fächer mit 
M(O), M(1), M(2), M(3), M(4) durchnumeriert sind. 


Die explizite Vereinbarung geschieht wie bei einfachen Daten- 
typen über die Anweisungen DEFINT, DEFREAL bzw. DEFSTR. 


Arrays (Felder, Bereiche) 


a ee 
Integer-Array M®: Real-Array M: String-Array M$: 


DIM M(4) DIM M$(4) 
ZANGE M$(0) 
Eine HAMMER| M$(1) 
Dimen- MEISEL| M$(2) 
sion; KELLE M$(3) 
BOHRER| M$(4) 
DIM M$(3,2) 
Zwei HANS MAX EMIL 
Dimen- EVA 
sionen: ERNST MARIA JULIA 


LENA TILL 


Anmerkung zu Real-Arrays: M! mit einfacher Genauigkeit, 
M (ohne Datentypzeichen) wie M! 


Drei Grundtypen von Arrays 
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3.7.2 Eindimensionale Tabellen 


Eine eindimensionale Tabelle kann man sich waagerecht als Zei- 
le oder senkrecht als Spalte angeordnet vorstellen, also 
immer in einer Richtung ausgedehnt. Man spricht dabei auch von 
Feld, Bereich, Vektor, Liste und natürlich Array. Das Programm 
LAGREGAL veranschaulicht uns diese Datenstruktur: 

Mit 130 DIM R(7) vereinbaren wir ein Regal mit 8 Regalfächen 
0,1,...,7. Das 0. Fach lassen wir unberücksichtigt (man reser- 
viert es -wie später im Programm ABTABELL gezeigt wird- meist 
für ganz besondere Eintragungen). Über die Eingabeschleife von 
Zeile 180 bis 210 geben wir mittels 200 INPUT R(I) der Reihe 
nach 7 Zahlen in die Fächer 1,2,..,7 ein; dies können z.B. die 
Absatzmengen an den Wochentagen sein. 

Die Variable I bezeichnet man als indizierende Variable oder 
Index variable, da sie das jeweilige Element des Arrays R 


Index: R(O) Re) R(2) R(3) R(4) R(5) R(6) R(7) 


oo. © Tess Tele t]e) 


leer Fächer 1-7 mit je einer Zahl als Wert (Inhalt) 


- 140 DIM R(7) Reserviere 8 Fächer für einen Array R. 

- 149 LET R(2)=23 Weise die Zahl 23 ins 2. Regalfach zu. 

- 159 PRINT R(4) Gib die 88 als Wert des 4. Faches aus. 

- 169 INPUT R(6) Weise die Tastatureingabe ins 6. Fach zu. 

- 230 INPUT R(I) Weise die Tastatureingabe ins I. Fach zu, 
wenn I den Wert 3 hat, dann ins 3. Fach. 

- 291 LET M=M+R(Z) Erhöhe M um den Wert des Z. Faches. 


Eindimensionale Tabelle bzw. Vektor R() als Beispiel 


Codierung zu LAGREGAL: Ausführung zu LAGREGAL: 


100 REM ====== Programm LAGREGAL Eindim. Array (Lagerregal). 
110 PRINT "Eindim. Array (Lagerregal)." 


Eingabe in Regalfaecher: 


120 REM ====== Vereinbarungsteil Menge fuer Fach 1 ? 12 
130 DIM R(7): "ARRAY(1. .7) als Regal Menge fuer Fach 2 ? 23 
140 ' I: Lauf- bzw. Indexvariable Menge fuer Fach 3 ? 11 
150 ' M: Summe der 7 Faecher Menge fuer Fach 4 ? 88 

Menge fuer Fach 5 ? 24 
160 REM ====== Anweisungsteil Menge fuer Fach 6 ? 17 
170 PRINT : PRINT "Eingabe in Regalfaecher:" Menge fuer Fach 7 ?5 
180 FOR I=1 TO 7 
190 PRINT "Menge fuer Fach"; I; Fach: Menge: 
200 INPUT R(I) l 12 
210 NEXT I 2 23 

3 11 

220 PRINT : PRINT "Fach: Menge: " 4 88 
230 FOR I=1 TO 7 5 24 
240 PRINT I, R(I) : LETM=M+R(I) 6 17 
250 NEXT I 7 5 


260 PRINT "Summe:" ,„M : END Summe; 180 
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anzeigt. R(I) bedeutet: I. Stelle von R, I. Element von R bzw. 
R an der Stelle I. I ist zugleich auch Laufvariable der zZäh- 
lerschleife 180 FOR I=1 TO 7. 

Über die Schleife von Zeile 230 bis 250 wird als Übersicht die 
jeweilige Fachnummer (Index) samt der im Fach abgelegten Menge 
(Inhalt des Array-Elements) ausgegeben, wobei jeder Fachinhalt 
nach M aufsummiert wird. 


Das folgende Programm VOKABELD weist wie das Programm LAGREGAL 
eine eindimensionale Tabelle auf. 

In den Fächern werden keine Zahlen aufbewahrt (Real-Array M), 
sondern Vokabeln als Texte (String-Arrays D$ und F$). Außer- 
dem richtet die Anweisung 140 DIM D$(A) keine feste Zahl von 
Fächern ein, sondern soviele, wie über die vorausgegangene An- 
weisung 130 INPUT A durch Tastatureingabe festgelegt wurde. 
In der Ausführung sind es A=3 Fächer für je drei deutsche und 
französische Vokabeln (Fächer 0 bleiben leer). Man bezeichnet 
INPUT A: DIM D$(A) als dynamische Dimensionierung. 


Das Drillprogramm VOKABELD ist natürlich erweiterungsbedürftig 
(Zufallsauswahl von Vokabeln; Antwortanalyse für Fehlerhinweis 
und Ablaufmodifikation; Ablage von Vokabeln in Dateien; ...). 
Vielleicht versuchen Sie es einmal mit einer Erweiterung? 


Codierung zu VOKABELD: Ausführung zu VOKABELD: 

100 REM ====== Programm VOKABELD RUN 

110 PRINT "Drill Franzoesisch-Deutsch." Drill Franzoesisch-Deutsch. 
Anzahl der Vokabeln? 3 

120 REM ====== Vereinbarungsteil Paarweise tippen: D, F 

130 INPUT "Anzahl der Vokabeln"; A ? MANN, HOMME 

140 DIM D$(A): "String-Array fuer D ? FRAU, FEMME 

150 DIM F$(A): "String-Array fuer F ? KIND,ENFANT 

160 ' A$: Jeweilige Antwort 
Beginn der Uebung: 

170 REM ====== Anweisungsteil MANN heisst ? HOMME 

180 PRINT "Paarweise tippen: D, F" Gut. 

190 FOR I=1 TO A FRAU heisst ? FEME 

200 INPUT D$(I), F$(I) Falsch. FRAU heisst FEMME 

210 NEXT I KIND heisst ? L'ENFANT 

220 PRINT : PRINT "Beginn der Uebung:" Falsch. KIND heisst ENFANT 

230 FOR I=1 TO A Ende, 


240 PRINT D$(I);" heisst "; : INPUT A$ 
250 IF A$ = F$(I) 
THEN PRINT "Gut." 
ELSE PRINT "Falsch. ";D$(I);" heisst ";F$(I) 
260 NEXT I 
270 PRINT "Ende." : END 


3.7.3 Zweidimensionale Tabellen 


Eine zweidimensionale Tabelle dehnt sich waagerecht in Zeilen 
und senkrecht in Spalten aus. Am Beispiel der durch DIM R(2,S) 
dynamisch vereinbarten Tabelle wollen wir im Programm ABTABELL 
diese Datenstruktur näher betrachten. 
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R(5,4) kann man sich vorstellen als Schrank zur Aufnahme der 
Absatzmengen von 5 Kunden (=Zeilen 1 bis 5) in den 4 Quartalen 
(=Spalten 1 bis 4). So hat Kunde 5 im 1. Jahresquartal 50 Stk. 
gekauft und Kunde 3 im 3. Quartal 90 Stk. 

Die Tastatureingabe der 5*4=20 Absatzmengen vollzieht sich in 
den Zeilen 210-270 über zwei geschachtelte Zählerschleifen mit 


210 FOR I=1 TO Z Äussere Schleife "Kunden 1,2,3,4,5' 
230 FOR J=1 TO S Innere Schleife "Quartale 1,2,3,4' 
250 INPUT R(I,J) Eingabe nach Fach Zeile I, Spalte J 
260 NEXT J Innere Schleife beenden 
270 NEXT I Äussere Schleife beenden 

100 REM ====== Programm ABTABELL 


110 PRINT "Tabellenverarbeitung: Absatztabelle Kunde/Vierteljahr" 
120 PRINT "als zweidimensionaler Array (bzw. Feld, Bereich, Matrix)." 


130 REM ====== Vereinbarungsteil 

140 INPUT "Anzahl der Zeilen (waagerecht)"; 
150 INPUT "Anzahl der Spalten (senkrecht)"; S 
160 ' A$: Jeweilige Antwort 


170 DIM R(Z,S) "Regal dynamisch dimensioniert 


190 REM ====== Anweisungsteil 

200 PRINT : PRINT "Eingabe zeilenweise:" 

210 FOR I=1 TO Z 

220 PRINT "Naechste Zeile, naechster Kunde:" 
230 FOR J=1 TOS 

240 PRINT "Kunde";I;", Vierteljahr";J; 

250 INPUT R(I,J) 

260 NEXT J 

270 NEXT I 


Codierung zu ABTABELL 


280 FOR I=1 TO Z "Zeilenweise summieren nach Spalte O 
290 FOR J=1 TO S 
300 LET R(I,O) = R(I,0) + R(I,J) 


310 NEXT J 

320 NEXT I 

330 FOR I=1 TO Z "Gesamtsumme nach R(0,0) bringen 
340 LET R(0,0) = R(0,0) + R(I,O) 

350 NEXT I 

360 FOR J=1 TO S '"Spaltenweise summieren nach Zeile O 


370 FOR I=1 TO Z 

380 LET R(0,J) = R(0,J) + R(I,J) 
390 NEXT I 

400 NEXT J 


410 PRINT : PRINT "Uebersicht: ";Z;"Zeilen,";S; "Spalten:" 
420 FOR I=0 TO Z 

430 FOR J=0 TO S 

440 PRINT USING "##### "; RCI,J); 


450 NEXT J 
460 PRINT 
470 NEXT I "Schleifenschachtelung typisch fuer 


480 PRINT "Ende." : END 'die Tabellenverarbeitung (Arrays) 
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viermaligem Durchlaufen der inneren Schleife für jeden Kunden. 
Das Verarbeiten von zweidimensionalen Tabellen (auch Matrizen 
genannt) führt stets zur Schleifenschachtelung . 

Die Fächer mit 0 als Index werden häufig zur Ablage besonderer 
Werte verwendet. Bei Programm ABTABELL werden in der Zeile 0 
die Quartalssummen 150,300,450,600 abgelegt, also die 4 Spal- 
tensummen. In Spalte O0 finden wir die Kundenabsatzmengen 100, 
200,300,400,500 als die 5 Zeilensummen. Im Fach R(0,0) ist die 
Gesamtjahresabsatzmenge 1500 gespeichert. Das zeilen- wie auch 
das spaltenweise Summieren läuft wieder über Schleifenschach- 
telungen ab. i 


RLOTO)S ER(OFD)EITRE(0F 2) [ERLORSIEIER074) DIM R(5,4) richtet 
1500 150 300 450 600 Tabelle mit 6 Zeilen 
(waagerecht) und 5 
RIW@IRO) A ERSGIE EI) EER (I 2 ERINES)E ERINEA) Spalten (senkrecht) 
100 10 20 30 ein, also 20 Fächer. 
R(2,0) R(2,4) R als Regalschrank. 
200 20 40 60 80 
LET R(4,3)=120 weist 
BUBSON DM ERKBTID EI RC3TZIRTERU3, 3) ERS) dem Fach in Zeile 4 
300 30 60 90 120 und Spalte 3 die 120 
zu. 
R(4,0) | R(4,1) | R(4,2) | R(4,3) | R(4,4) 
400 40 80 12.0 1.602 |2 PPRINTERIT „ZZ gUDE 
Spalte 2 aus, wenn I 
RD. O0) WERKES ET ERKST2E ERS, 395 | ER 57.43) von 0 bis 5 läuft. 
500 50 100 150 200 


Zweidimensionale Tabelle bzw. Matrix R(,) als Beispiel 


Ausführung zu ABTABELL: 


Tabellenverarbeitung: Absatztabelle Kunde/Vierteljahr 

als zweidimensionaler Array (bzw. Feld, Bereich, Matrix). 

Anzahl der Zeilen (waagerecht)? 5 Kunde 3 , Vierteljahr 4 ? 120 

Anzahl der Spalten (senkrecht)? 4 Naechste Zeile, naechster Kunde: 
Kunde 4 , Vierteljahr 1 ? 40 
Kunde 4 , Vierteljahr 2 ? 80 


Eingabe zeilenweise: Kunde 4 , Vierteljahr 3 ? 120 
Naechste Zeile, naechster Kunde; Kunde 4 , Vierteljahr 4 ? 160 
Kunde 1 , Vierteljahr 1 ? 10 Naechste Zeile, naechster Kunde: 
Kunde 1 , Vierteljahr 2 ? 20 Kunde 5 , Vierteljahr 1 ? 50 
Kunde 1 , Vierteljahr 3 ? 30 Kunde 5 , Vierteljahr 2 ? 100 
Kunde 1 , Vierteljahr 4 ? 40 Kunde 5 , Vierteljahr 3 ? 150 
Naechste Zeile, naechster Kunde: Kunde 5 , Vierteljahr 4 ? 200 
Kunde 2 , Vierteljahr 1 ? 20 

Kunde 2 , Vierteljahr 2 ? 40 Uebersicht: 5 Zeilen, 4 Spalten: 
Kunde 2 , Vierteljahr 3 ? 60 1500 150 300 450 600 
Kunde 2 , Vierteljahr 4 ? 80 100 10 20 30 40 
Naechste Zeile, naechster Kunde: 200 20 40 60 80 
Kunde 3 , Vierteljahr 1 ? 30 300 30 60 90 120 
Kunde 3 , Vierteljahr 2 ? 60 400 40 80 120 160 


Kunde 3 , Vierteljahr 3 ? 90 500 50 100 150 200 
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3.7.4 Dreidimensionale Tabellen 


Dreidimensionale Tabellen können wir uns gut am Beispiel eines 
Zauberwürfels (Rubik's Cube) mit 4%*%4%*4=64 kleinen, verschieb- 
baren Würfeln veranschaulichen. Wir vereinbaren als Würfel A: 


10 DIM A(4,4,4) würfel als Tabelle mit 3 Dimensionen 
1. Index für Zeilen (oben, unten) 
2. Index für Spalten (links, rechts) 
3. Index für Tiefe (vorne, hinten) 


Legen wir einen Würfel vor uns auf den Tisch, benennt A(1,1;;1.) 
den Würfel bzw. Punkt (oben,links,vorne) und A(4,4,4) den ent- 
gegengesetzten Punkt ( unten,rechts,hinten). Programm DREIDIMI 
ist ein Auskunftprogramm für die Lage von Würfelpunkten. 


Codierung zu Programm DREIDIMI: Ausführung zu DREIDIM]: 
100 REM ====== Programm DREIDIM4 RUN 
110 PRINT "Koordinaten testen eines mit" Koordinaten testen eines 
120 PRINT "DIM A(4,4,4) vereinbarten " DIM A(4,4,4) vereinbarten 
130 PRINT "dreidimensionalen Arrays A." dreidimensionalen Arrays A. 
140 PRINT:PRINT "Schleifenende: X=777" Schleifenende: X=777 
150 WHILE X <> 777 Welcher Punkt (X,Y,Z) 
160 PRINT "Welcher Punkt (X,Y,Z)" ?1,4,1 
170 INPUT X,Y,Z Punkt: (oben,rechts,vorne) 
180 IF X=1 Welcher Punkt (X,Y,Z) 
THEN LET X$="oben," 12,341 
ELSE IF X=4 THEN LET X$="unten," Punkt: (Mitte,Mitte,vorne) 
ELSE LET X$="Mitte," Welcher Punkt (X,Y,Z) 
190 IF Y=l 7? 4,4,2 
THEN LET Y$="links" Punkt: (unten,rechts,Mitte) 
ELSE IF Y=4 THEN LET Y$="rechts" Welcher Punkt (X,Y,Z) 
ELSE LET Y$="Mitte" ? 777,0,0 
200 IF Z=l Punkt: (Mitte,Mitte,Mitte) 
THEN LET Z$=", vorne" Ende. 


ELSE IF Z=4 THEN LET Z$=",hinten" 
ELSE LET Z$=",Mitte" 
210 PRINT "Punkt: (";X$;Y$52$;'")" 
220 WEND 
230 PRINT "Ende." : END 


Im Programm DREIDIM2 wird eine dreidimensionale Tabelle als 
String-Array B$ mit 18 Zeilen (18 Vereinen), 7 Spalten (7 An- 
gaben; Vereinsname, Spiele, ‘gewonnen, verloren, remis, Torever- 
hältnis, Punkteverhältnis) sowie 34 Einträgen in der Tiefe (34 
Spieltage) vereinbart. Die kompletten 34 Ligatabellen der Vor- 
und Rückrunde können so in e i ne m Array gespeichert wer- 
den. Ob dies in Bezug auf den Speicherplatz auch günstig ist, 
bleibt zu bedenken (nur Vereinsname String, übrige Eintragun- 
gen als Zahl). Die Ausführung zum Programm DREIDIM2 zeigt uns 
drei Zugriffsbeispiele zum 2. Spieltag auf; die Zählerschleife 
verdeutlicht, daß in der 1. Spalte derzeit keine Vereine ein- 
getragen sind außer dem FSV FRANKFURT. 
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Codierung zu Programm DREIDIM2: 


100 REM ====== Programm DREIDIM2 
110 PRINT "Eintragung testen einer Bundesliga-Tabelle, die" 
120 PRINT "als dreidimensionaler Array (Wuerfel) vereinbart ist." 


130 DIM B$(18,7,34) "String-Array fuer 18*7%*34 = 4284 Eintragungen 
140 INPUT "Verein, 5. Rang, 2. Spieltag"; V$ : LET B$(5,1,2)=V$ 
150 PRINT "Torverhaeltnis von ";V$; : INPUT T$ : LET B$(5,6,2)=T$ 


160 PRINT "I. Zeile, 1. Spalte, 2. Tiefe der Tabelle:" 


170 FOR I=1 TO 18 : PRINT I;B$(I,1,2); : NEXT I 
180 PRINT : PRINT "Ende." : END 


Ausführung zu Programm DREIDIM2: 


NEW 

PRINT FRE(O) Anmerkung: 

42245 Der Test mittels Funktion FRE(0) zeigt, 
daß der dreidimensionale Array B$(18,7,34) 

LOAD "DREIDIM2" genau 16032 Bytes an Speicherplatz 


beansprucht. 
PRINT FRE(O) 
41728 


RUN 
Eintragung testen einer Bundesliga-Tabelle, die 
als dreidimensionaler Array (Wuerfel) vereinbart ist. 
Verein, 5. Rang, 2. Spieltag? FSV FRANKFURT 
Torverhaeltnis von FSV FRANKFURT? 35-28 
I. Zeile, 1. Spalte, 2. Tiefe der Tabelle: 
1 2 3 4 5 FSV FRANKFURT 6 7 8 9 10 11 12 13 14 15 16 17 18 


Ende, Anmerkung: 


Die hier angegebenen Werte beziehen sich 
auf einen Schneider CPC 464 in der Nor- 
PRINT FRE(O) malausstattung. 
25696 Bei CPC 668 bzw. 6128 ergeben sich na- 
türlich andere Werte. 


Mehr als drei Dimensionen lassen sich grafisch nicht darstel- 
len. Wie die folgende Erweiterung des Regals von LAGTABELL zu 
einem vierdimensionalen Array zeigt, können solche Datenstruk- 
turen dennoch demonstriert werden: 


10 DIM T(5,4,10,15) Tabelle T mit 4 Dimensionen 


5 Zeilen für 5 Kunden 

4 Fächer (Quartale) je Kunde 

10 Karten (Aufträge) je Fach 

15 Einträge (Positionen) je Auftrag 


Der Wert von T(2,1,9,4) gibt demnach Auskunft über den 9. Auf- 
trag des Kunden 2 im 1. Jahresquartal, und zwar genau über die 
4. Position dieses Auftrags. 
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3.8.1 Grafik im Überblick 


Beim Schneider CPC sind drei Modi zur Darstellung von Zeichen 
bzw. Pixeln zu unterscheiden, wobei der Modus 1 beim Einschal- 
ten automatisch aktiv ist: 


Modus: Text (Zeichen): Grafik (Pixel): Farben: 
0 20 * 25 160 * 200 16 
1 40 * 25 320 * 200 4 
2 80 * 25 640 * 200 2 


Modus 0, 1 und 2 zur Bildschirmdarstellung bei Schneider CPC 


Die Grafik erfordert sehr viel Speicherplatz. So braucht man 
zum Ablegen eines Schwarz-Weiß-Rasterbildes mit 320*200 Bild- 
punkten bzw. Pixel (Modus 1) bereits 64 KBit an Speicherplatz 
im RAM. Farbige Bilder (aus den 27 Farbstufen kann für Hinter- 
grund, Rahmen und Zeichen ausgewählt werden) lassen den Spei- 
cherplatzbedarf weiter ansteigen. Im Vielfarbmodus 0 kann man 
bis zu 16 Schriftfarben mittels PEN zuordnen. 


Die Grafikfarbe kann getrennt festgelegt werden (INK). Durch 
die Grafikanweisungen läßt sich der Pixelcursor bewegen. Dabei 
kann der Pixelcursor absolut und auch relativ bewegt werden. 
Die Anweisung DRAW X,Y,4 zieht eine Linie von der aktuellen 
Cursorposition zur Position X,Y; die Anweisung DRAWR X,Y,4 da- 
gegen bewegt den Pixelcursor um X Spalten und Y Zeilen weiter. 
Da die absolute und relative Positionierung auch für Bewegun- 
gen möglich ist, kann auf dem Schneider CPC äußerst vielseitig 
Grafik programmiert werden. 

Auf die komfortablen Grafikmöglichkeiten des Schneider kann in 
diesem Buch nicht eingegangen werden. Auch die speziellen Gra- 
fik-Programmpakete für Linien-, Säulen- und Kuchengrafik (vgl. 
Abschnitt 1.3.8.3) bleiben unberücksichtigt. Die nachfolgenden 
elementaren Beispiele sollen einen ersten Eindruck vermitteln, 
um Probleme grafisch zu veranschaulichen. Die beiden Programme 
BALKENDI und GERADE verwenden den Text-Modus und das Programm 
PARABEL den Grafik-Modus 1 (also Auflösung von 320%200 Pixel). 


3.8.2 Balkendiagramm zeichnen 


Das Programm BALKENDI löst das Problem der grafischen Veran- 
schaulichung von Meßwerten als Balkendiagramm bestimmt nicht 
sehr elegant und trickreich, hoffentlich jedoch klar und ver- 
ständlich. 

Die Eingabeschleife (200-250) stellt in MAX und MIN die extre- 
men Meßwerte fest, damit sich die Grafikausgabe (280-310) über 
die Balkenausdehnung BA daran ausrichten kann. 
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Codierung zu Programm BALKENDI: 


100 REM ====== Programm BALKENDI 

110 PRINT "Erstellen eines Balkendiagramns." 

1ll: 

120 REM ====== Vereinbarungsteil 

130 DIM M(20) 

140 "ANZ: Anzahl der Messwerte 

150 'MX, MN: Maximaler bzw. minimaler Wert 

160 'B$: Balken zur Dastellung eines Messwertes 
170 'BA, BL: Balkenausdehnung, Balkenlaenge pro Zeile 
171: 

172 REM ====== Anweisungsteil 


180 LET MX=-999999999 : LET MN=999999999 

190 LET BE" HH" 

200 FOR I=1 TO 20 

210 PRINT I;". Messwert (O=Ende)"; : INPUT M(I) 
220 IF M(I)=0 THEN LET ANZ=I : LET I=20 : GOTO 250 
230 IF M(I)<MN THEN LET MN=M(I) : GOTO 250 

240 IF M(I)>MX THEN LET MX=M(I) 

250 NEXT I 

260 PRINT 

270 LET BA = (MX-MN)/19 

280 FOR I=1 TO ANZ-1l 

290 LET BL = INT (((MCI)-MN)/BA)) + 1 

300 PRINT I; TAB(4); LEFT$(B$,BL) 

310 NEXT I 

320 PRINT "Maximum:"; MX; " Minimum:"; MN 

330 PRINT "Ende." : END 


Ausführung zu Programm BALKENDI: Erstellen eines Balkendiagramns. 
l . Messwert (O=Ende)? 12000 
Erstellen eines Balkendiagramns. 2 . Messwert (O=Ende)? 14000 
1 . Meuswert (O=Ende)? 103 3 „ Messwert (O=Ende)? 11500 
2 . M=sswert (O=Ende)? 67 4 . Messwert (O=Ende)? 10000 
3 . Messwert (O=Ende)? 95 5 . Messwert (O=Ende)? 14000 
4 . M=sswert (O=Ende)? 15 6 . Messwert (O=Ende)? 13500 
5 . Messwert (O=Ende)? 187 7 . Messwert (O=Ende)? 0 
6 . Messwert (O=Ende)? O 
IE 
5 A 2 ET 
3 Hure 
3 4H# 
4# Bad 000 20 
Dia dd er te 
Maximum; 187 Minimum: 15 Maximum: 14000 Minimum: 10000 
Ende. Ende. 


3.8.3 Kurvendiagramme zeichnen 


Zur grafischen Darstellungen von mathematischen Kurven werden 
die Achsen oft vertauscht: x-Achse nach unten gerichtet sowie 
y-Achse nach rechts. Die Funktion TAB() hat dabei die Aufgabe, 
die Werte der Geraden richtig zu positionieren. 
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Codierung zu Programm GERADE: 


100 REM ====== Programm GERADE 
110 PRINT "Gerade z = m*x + b zeichnen." 


120 INPUT "Geradensteigung m "; M 
130 INPUT "y-Achsenabschnitt b"; B 


140 INPUT "x-Achse: von .?. bis .?."; X0,X1 : PRINT 
150 PRINT " 012345678901234567890123456789012345678 y" 


160 FOR X=X0 TO X1 

170 LETY=MX+B 

180 PRINT X; TAB(Y+2); "*" 
190 NEXT X 

200 PRINT : PRINT " x" 

210 PRINT "Ende." : END 


Gerade z = m*x + b zeichnen. 
Geradensteigung m ? 2 
y-Achsenabschnitt b? 3 

x-Achse: von .?. bis .?.?0 , 13 


012345678901234567890123456789012345678 y 
oO * 


vosuotrvouvHe 
* 


Das Programm PARABEL demonstriert, wie 
der BASIC zum Zeichnen von Parabeln der 
2 
Y = AX + B*RX +C 


verwendet werden kann. Die Parameter A, 
liebig viele Polynome über die Tastatur 
umseitigen Ausführungsbeispiel werden 4 


die Grafik von Schnei- 
Form 


B und C können für be- 
eingegeben werden. Im 
Kurven gezeichnet: 


- 240 ORIGIN 160,0 setzt den Ursprung neu. 
- 250 DRAW 0,200 und 270 DRAW 320,0 zeichnet die Achsen. 


PLOT und DRAW dienen zum Zeichnen der 


FLAGGE bewirkt, daß Zeile 360 nur einmal ausgeführt wird. 


Kurven. 
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100 REM ====== Programm PARABEL 
110 PRINT "Parabel y = a * x“2 + b*x + c zeichnen unter Verwendung" 


120 PRINT "der Grafik mit mittlerer Aufloesung (Standard Modus)." 
130 REM ====== Vereinbarungsteil 

140 'A,B,C: Parameter fuer Parabel 

150 'X0,YO: Nullpunkt Koordinatenkreuz 

160 'X,Y: Parabel-Variablen waagerecht (X) und senkrecht (Y) 
170 "FLAGGE: Hilfsvariable (boolesch) 


180 REM ====== Anweisungsteil 
190 PRINT "Weiter: Taste druecken" 
200 LET A$=INKEY$: IF A$="" THEN 200 


210 LET X0=160 :LET YO=100 "Mittelpunkt Koordinatenkreuz 
220 INPUT "Parameter A,B,C (A=777=Ende)";A,B,C 
230 MODE 1 


240 ORIGIN 160,0 

250 DRAW 0,200 

260 ORIGIN 0,100 

270 DRAW 320,0 

280 ORIGIN 0,0 

290 WHILE A<>777 

300 LET A=A/20 : LET C=C*20 "Ausdehnung anpassen 
310 LET FLAGGE=O 

320 FOR X = -X0 TO X0 

330 LET Y = AFX*X + B*X + C 
340 IF Y>YO OR Y<-YO THEN 400 


350 IF FLAGGE<>O THEN 380 

360 LET X1=X0+X: LET Yl=YO+Y: PLOT X1,Y1 

370 LET FLAGGE=1: GOTO 390 

380 DRAW X1,Y1 

390 LET X1=X0+X : LET Yl=YO+Y 

400 NEXT X 

410 INPUT "A,B,C"; A,B,C 

420 WEND 

430 MODE 2 "Bildschirm 80-Zeichen-Breite 


440 PRINT "Ende des Demonstrationsprogramms zur Grafik '320X200'." : END 


Ausführung zu Programm PARABEL: 


Parameter A,B,C (A=777=Ende)? O,1,1 
Parameter A,B,C? 1,0,0 

Parameter A,B,C? -1,0,0 

Parameter A,B,C? 0.25,1,-1 
Parameter A,B,C? 777,0,0 
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3.9.1 Verfahren im Überblick 


Legt man einen größeren Datenbestand als Dat ei auf einem 
Externspeicher ab, dann stellen sich immer wieder Probleme des 
Suchens, Sortierens, Mischens sowie Gruppierens von Datensätz- 
en der Datei. Aus diesem Grunde bezeichnet man diese vier Ver- 
fahren auch als Hilfmittel der Dateiverarbeitung. Ob man Sätze 
einer Datei sortiert oder Komponenten eines Arrays - am jewei- 
ligen zu demonstrierenden Verfahren ändert dies meist nichts; 
aus diesem Grunde verarbeiten die folgenden Beispiele Arrays. 


SUCHEN: Absatzmengen Mo - So: 45,100,95,78,90,76,80. 
An welchem Tag wurden 78 Stück abgesetzt? 


SORTIEREN: Absatzmengen in aufsteigende Sortierfolge 
4527:0:,2.8,.80,,907,95, 1002 Bbringen« 


MISCHEN: Mengen 45,76,78,80,90,95,100 von Filiale 1 und 
Mengen 30,47,55,57,61,80,103 von Filiale 2 zu 
3.0%.4:5:,.4%17,551,571.7.0.12,71.0:73:8,,.8.07,8079079571007:103 
als Gesamtliste mischen. 


GRUPPIEREN: Gruppensummen MO-MI=240 und DO-SO=324 bilden. 


Vier Hilfsverfahren der Dateiverarbeitung 


3.9.2 Suchverfahren 


Das einfachste Suchverfahren besteht darin, die Datei Satz für 
Satz in der Reihenfolge der Speicherung zu durchsuchen. Diese 
ser ie 1 le Suche ist typisch für die Datenträger Magnet- 
band bzw. Kassette. Eine Adreßdatei nach ZIMMERMANN zu durch- 
suchen kann ggf. sehr lange dauern. Im Programm namens SUCHBIN 
wird das b i nä re Suchen als schnelles Suchverfahren dar- 
gestellt. Um die Menge 90 zu suchen, wird zunächst die 80 als 
Mitte genommen; der Vergleich 80<90 zeigt, daß in der oberen 
Hälfte 90,95,100 weiterzusuchen ist. Man nimmt wieder die Mit- 
te, der Vergleich 95>90 zeigt, daß jetzt in der unteren Hälfte 
weiterzusuchen ist. Weil diese Hälfte nur noch den Suchbegriff 
90 enthält, ist die Suche 'positiv' beendet. Bei diesem klei- 
nen Beispiel mag das binäre Suchen umständlich wirken. Die Be- 
deutung aber zeigt folgendes Beispiel: Um aus den über 60 Mio 
Bundesbürgern e i n e n Namen herauszufinden, benötigt die- 
ses Suchverfahren im Schnitt nur 26 Zugriffe. 

Das Wort "binär bzw. zweiwertig' deutet an, daß man stets die 
Hälfte bildet und dann die linke und rechte Hälfte als 2 Teile 
vergleicht. 

Das binäre Suchen setzt dabei voraus, daß die Daten sortiert 
und auf einem Direktzugriff-Speicher vorliegen. 

Zur Codierung von SUCHBIN: In der rechten Hälfte wird weiter- 
gesucht, indem man die Hälfte-Grenze UNTEN auf die MITTE vor- 
rückt (in Zeile 270). Die Variable GEFUNDEN dient der Ablauf- 
steuerung; ist in Zeile 290 S gleich D(MITTE), dann wird die I 
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als Vergleichsergebnis 'wahr' nach GEFUNDEN zugewiesen. Im an- 
deren Fall behält GEFUNDEN den Wert 0. 


Codierung zu Programm SUCHBIN: 


100 REM ====== Programm SUCHBIN 

110 PRINT ""Binaeres Suchen! als Suchmethode." 

111: 

120 REM ====== Vereinbarungsteil e 

130 'A: Anzahl der Daten 

140 'D(A): Array mit A Daten als Suchgegenstand 
150 "GEFUNDEN: l oder O fuer das Suchergebnis 
160 "UNTEN,MITTE,OBEN: Grenzen fuer die Such-Haelften 
170 'S: SUCHBEGRIFF 

171% 

180 REM ====== Anweisungsteil 


190 INPUT "Anzahl der Daten";A : DIM D(A) 

200 PRINT A;"Daten einzeln eintippen:" 

210 FOR I=1 TO A : INPUT D(I) : NEXT I 

220 LET GEFUNDEN=0 : LET UNTEN=1 : LET OBEN=A 

230 INPUT "Welchen Wert suchen"; S 

240 PRINT : PRINT "Suchprotokoll zum Halbieren:" 

241 : 

250 WHILE (UNTEN<=OBEN) AND (GEFUNDEN=0) 

260 LET MITTE = INT((UNTEN+OBEN)/2) 

270 PRINT "Unten:";UNTEN;", Mitte";MITTE;", Oben';OBEN 


280 IF S>D(MITTE) THEN LET UNTEN=MITTE+1 'in oberer Haelfte weitersuche 
290 IF S<D(MITTE) THEN LET OBEN=MITTE-1 'in unterer Haelfte weitersuchen 
300 LET GEFUNDEN = S=D(MITTE) '_] (wahr) oder O0 (unwahr) 

310 WEND 

3ll: 


320 PRINT : PRINT "Suchergebnis: "; 
330 IF GEFUNDEN THEN PRINT S;"gefunden." 
ELSE PRINT S;"nicht gefunden." 


340 PRINT "Ende." : END 


Erste Ausführung zu Programm SUCHBIN: 


"Binaeres Suchen! als Suchmethode. 
Anzahl der Daten? 5 
5 Daten einzeln eintippen: 
? 100 
? 200 
? 300 
? 500 
? 900 
Welchem Wert suchen? 100 


Suchprotokoll zum Halbieren: 
Unten: 1 , Mitte 3 , Oben 5 
Unten: 1 , Mitte 1 , Oben 2 


Suchergebnis: 100 gefunden, 
Ende. 
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PAP zu SUCHBIN: 


Ablaufstrukturen in SUCHBIN: 

- Wiederholungsstruktur (Schleife) 
- Zwei einseitige Auswahlstrukturen 
- Eine zweiseitige Auswahlstruktur 


Anordnung der Ablaufstrukturen: 

- Einseitige Auswahlstrukturen in 
Schleife eingeschachtelt. 

- Schleife und zweiseitige Auswahl 
hintereinander angeordnet. 


Ablaufstrukturen siehe Abschnitt 3.1 
und 1.3.3. 


Ausführung zu Programm SUCHBIN: 


"Binaeres Suchen! als Suchmethode. 


Anzahl der Daten? 7 
7 Daten einzeln eintippen: 


2 100 
Welchem Wert suchen? 90 


Suchprotokoll zum Halbieren; 
Unten: 1 , Mitte 4 ,„ Oben 7 
Unten: 5 , Mitte 6 , Oben 7 
Unten: 5 , Mitte 5 , Oben 5 


Sucherg=2bnis; 90 gefunden. 
Ende, 
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3.9.3 Sortierverfahren 


Die ersten Programme der Datenverarbeitung sollen Sortierpro- 
gramme gewesen sein. Dies unterstreicht die Bedeutung des Sor- 
tierens gerade für die kaufmännische DV. Es läßt aber auch er- 
ahnen, wie raffiniert heutige Sortieralgorithmen sein können. 


Sortieren ses: ... bedeutet: 


INTERN - EXTERN Daten im Internen Speicher (HS) 
oder auf einem Externen Speicher. 


NUMERISCH - STRING Daten als Zahlen (1< 4< 8,5) 
oder als Text ($ < DM < LIRE). 


DATEN - ADRESSEN Daten selbst sortieren oder nur 
deren Adressen bzw. Speicherplätze. 


EINFACH - KOMPLEX Einfache Sortierverfahren wie Aus- 
wahl, Bubble Sort, Einfügen oder 
komplexe Verfahren wie Sortieren 
durch Mischen, Binär-Baum-Sort 
Quick Sort mittels Rekursion. 


Vier Begriffspaare zum Sortieren 


Die folgenden Beispiele gehen weder auf das Externe Sortieren 
ein (erforderlich, wenn Datenumfang den Speicherplatz des In- 
ternspeichers übersteigt) noch auf komplexere Sortierverfahren 
(eine Ausnahme: das Sortieren über einen Binärbaum wird im Zu- 
sammenhang mit der Dateiverarbeitung gestreift. 


3.9.3.1 Zahlen unmittelbar sortieren 


"Unmittelbar' heißt, daß wir die zu sortierenden Zahlen selbst 
umordnen und nicht - wie im nächsten Abschnitt - ihre Plätze. 
Das Programm SORTDATI wendet das Sortierverfahren "Austausch 
nach Auswahl" an. 


PROBLEM: 6 Zahlen in Array D() sortieren. 
ABLAUF: 
1) Suche das Minimum in D() und speichere es in STELLEMIN 
2) Tausche D(I) mit D(STELLEMIN) aus. 
3) Weiter mit 1), aber jetzt mit D(I+1) beginnen. 
WERTE IN D(): 


nn: In D() 6 Zahlen 


102 101 109 106 104 105 Begi 

ONEELENOZ 109 106 104 105 I=1: Tausch 102-101 
101 10209 106 104 105 I=2: Kein Tausch 

101 102 104 I 106 109 105 73-2 Tausch=1092 21104 
101 102 104 1055151:09 106 I=4: Tausch 105 - 106 
101 102 104 105 106 I 109 I=5: Tausch 109 - 106 


Sortierverfahren "Austausch nach Auswahl" an einem Beispiel 
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Die Markierung "I" soll anzeigen, daß bei jedem Durchlauf mit 
D(I+1) begonnen wird, daß D() also verkürzt wird; programmiert 
wird das Verkürzen durch den Anfangswert I+1 in der Anweisung 
190 FOR J = I+1 TO 6. 

Das Tauschen der Inhalte von D(I) und D(STELLEMIN) wird nach 
der "Methode des Dreieckstauschs" über eine Hilfsvariable HILF 
vorgenommen. Im Programm SORTDATI geschieht dies in den Zeilen 
270-290. Die folgende Abbildung zeigt dazu zwei weitere Bei- 
spiele auf: 


Austausch von A und B Austausch von D(I) und D(STELLEMIN) 
über Hilfsvariable H: über Hilfsvariable D(0): 
2 2 
A —— —  — BB D(IJ) <———  —— D(STELLEMIN) 
1 3 % z 
H D(0) 
NOOEERTREHZ=ETR ZPOIELETZDLONZZED.GR) 
EI OZPEIRFASTERB 22 EEDEDOR)SZEBLSTEEBEMEN)) 
IPOS EETNBESEH 222 TED D(STELGEMEIN) =. D((0)) 


Methode des Dreieckstausches an zwei Beispielen 
Struktogramm zu Programm SORTDATI: 
Eingabe: 6 Zahlen nach D() aus DATA-Zeile programmintern 
Für I von 1 bis 5 wiederhole 

STELLEMIN = I als vorläufiges Minimum festlegen 


Für J von (I+1) bis 6 wiederhole 


STELLEMIN = J als 
neues Minimum 


Austausch von D(I) und D(STELLEMIN) mittels SWAP 


Ausführung zu SORTDATI: 


a 


Sortieren nach dem Verfahren "Austausch nach Auswahl" 
(numerische Daten selbst sortieren, nicht Zeiger). 


Sortierprotokoll der 6 Daten: Datenflußplan zu SORTDAT]: 
102 101 109 106 104 105 

101 102 109 106 104 105 

101 102 109 106 104 105 > 

101 102 104 106 109 105 9 >] 
101 102 104 105 109 106 

Ende. 
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Codierung zu Programm SORTDATI: 


100 REM ====== Programm SORTDAT1 

110 PRINT "Sortieren nach dem Verfahren "Austausch nach Auswahl!" 
120 PRINT "(numerische Daten selbst sortieren, nicht Zeiger)." 
124 % 


130 REM ====== Vereinbarungsteil 

140 'STELLEMIN: Stelle mit vorlaeufigem Minimum 

150 "HILF: Hilfsvariable fuer Dreieckstausch 

160 DIM D(6): '6 unter DATA im Programm gespeicherte Daten 
161 : 

170 REM ====== Anweisungsteil 


180 FOR I=1 TO 6 : READ D(I) : NEXT I 

190 DATA 102, 101, 109, 106, 104, 105 

200 PRINT : PRINT "Sortierprotokoll der 6 Daten:' 
210 FOR I=1 TO 6 5 

220 FOR Y=1 TO 6 : PRINT D(Y); : NEXT Y : PRINT 
230 LET STELLEMIN = I 

240 FOR J=I+l TO 6 


r 


250 IF D(J)<D(STELLEMIN) THEN LET STELLEMIN=J 
260 NEXT J 
270 LET HILF=D(I) "Dreieckstausch 


280 LET D(I)=D(STELLEMIN) 
290 LET D(STELLEMIN)=HILF 
300 NEXT I 

310 PRINT "Ende." : END 


3.9.3.2 Zahlen über Zeiger sortieren 


Im Programm SORTDATI haben wir sechs Zahlen selbst mehrfach 
umgeordnet. Bei umfangreicheren Datenbeständen kann es günsti- 
ger sein, nur die Speicherplätze dieser Zahlen über Zeigerva- 
riablen bzw. Pointer zu sortieren, die Zahlen selbst 
unbewegt zu lassen. Programm SORTZEIG demonstriert dies mit 
denselben Daten und demselben Sortierverfahren von SORTDATI. 


Unsortierter Array: Sortierter Array: 
Diel2)e2=102 Dee =03 
DZ on D(2) = 102 
De) 09 Unmittelbares DIS) =104 
BDiRAnEe 06 D(4) = 105 
DSye-104 Sortieren Bi le 
DIrO)E- 105 Dee 10 

Sortierter Sortierter Array 

Zeiger-Array: (über Zeiger): 
ZUNE=22 DUZOH)) FE 
ZU ZN D(Z(2)) = 102 
ZUa)e 55 Sortieren über D(2(3)) = 104 
z(4) = 6 me 0... DZ = 
ae Zeiger D(2(5))} = 106 
ee & D(2(6)) = 109 


Unmittelbares Sortieren sowie Sortieren über Zeiger 
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Codierung zu Programm SORTZEIG: 


100 REM ====== Programm SORTZEIG 
110 PRINT "Sortieren nach dem Verfahren "Austausch nach Auswahl '" 
120 PRINT "(numerische Daten ueber Zeiger sortieren)." 


130 : 

140 REM ====== Vereinbarungsteil 

150 '"STELLEMIN: Stelle mit vorlaeufigem Minimum 

160 "HILF: Hilfsvariable fuer Dreieckstausch 

170 DIM Z(6): '6 Zeiger bzw. Pointer 

180 DIM D(6): '6 unter DATA im Programm gespeicherte Daten 
190 : 

200 REM ====== Anweisungsteil 


210 FOR I=1 TO 6 : LET Z(I)=I : NEXT I 

220 PRINT : PRINT "6 Daten unsortiert:" 

230 FOR I=1 TO 6 : READ D(I) : PRINT D(I); : NEXT I 
240 DATA 102, 101, 109, 106, 104, 105 

250 PRINT : PRINT "Sortierprotokoll der 6 Zeiger:" 
260 FOR I=1 TO 5 

270 FOR Y=1 TO 6 : PRINT Z(Y); : NEXT Y : PRINT 
280 LET STELLEMIN = I 

290 FOR J=I+l TO 6 

300 IF D(J)<D(Z(STELLEMIN)) THEN LET STELLEMIN=J 
310 NEXT J 

320 LET HILF=Z(I) 

330 LET Z(I)=Z(STELLEMIN) 

340 LET Z(STELLEMIN)=HILF 

350 NEXT I 

360 PRINT "6 Daten ueber Zeiger sortiert:" 

370 FOR I=1 TO 6 : PRINT D(ZCI)); : NEXT I 

380 PRINT : PRINT "Ende." : END 


Ausführung zu SORTZEIG: 


Sortieren nach dem Verfahren "Austausch nach Auswahl" 
(numerische Daten ueber Zeiger sortieren). 


6 Daten unsortiert: 
102 101 109 106 104 105 
Sortierprotokoll der 6 Zeiger: 


6 Daten ueber Zeiger sortiert: 
101 102 104 105 106 109 
Ende. 


3.9.3.3 ‚ Strings unmittelbar sortieren 


Programm SORTDAT2 veranschaulicht das Sortieren von Strings 
anhand des "Sortierens durch paarweisen Austausch", das häufig 
auch Bubble Sort genannt wird. Die zu sortierenden Namen sind 
im String-Array N$() abgelegt und werden paarweise verglichen, 
um bei falscher Sortierfolge ausgetauscht zu werden. Dazu das 
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erste Ausführungsbeispiel zu SORTDAT2: MAX<MARIA falsch und 
Austausch, MAX<STILLMANN wahr, TILLMANN<LENA falsch und Aus- 
tausch. Jetzt MARIA,MAX,LENA,TILLMANN gespeichert. Wie Blasen 
(=bubble) werden Worte "hochgesprudelt', d.h. an das Ende des 
Arrays N$() gerückt. 

Die Variable UNSORTIERT steuert als boolesche Variable den Ab- 
lauf. Die Schleife wird solange durchlaufen, bis UNSORTIERT O0 
bleibt, d.h. kein Austauschen erfolgte. 

Wie die zweite Ausführung zu SORTDAT2 zeigt, kann Text mit 
beliebigen Zeichen sortiert werden. Warum kommt z.B. String 
"$-SAETZE'" vor String "126 DM"? Da im ASCII Codezahl 37 für % 
vor Codezahl :49 für 1 kommt. 


100 REM ====== Programm SORTDAT2 
110 PRINT "Sortieren nach dem Verfahren "Paarweiser Austausch'" 
120 PRINT "bzw. "Bubble Sort'(Sortieren von Strings selbst)." 


130 REM ====== Vereinbarungsteil 
140 'N$(A), A: A Namen in String-Array N$ gespeichert 
150 'HILF$: Hilfsvariable fuer Dreieckstausch 


160 'UNSORTIERT: Wahrheitswert mit O=unsortiert, l=sortiert 


170 REM ====== Anweisngsteil 

180 PRINT : INPUT "Anzahl der Namen"; A 

190 DIM N$(A) 

200 PRINT A;"Namen einzeln eintipppen:" 

210 FOR I=1 TO A: INPUT N$(I): NEXT I 

220 PRINT : PRINT "Kontrollausgabe zum Sortiervorgang:" 
230 LET UNSORTIERT=1 


240 WHILE UNSORTIERT 

250 LET UNSORTIERT=O 

260 FOR Y=1 TO A : PRINT N$CY);5" "; 2 NEXT Y : PRINT 
270 FOR I=1 TO A-1 


280 IF N$(CI)<=N$(I+l) THEN 330 ELSE 290 
290 LET HILF$=N$(I) 

300 LET N$(I)=N$(I+l) 

310 LET N$(I+l)=HILF$ 

320 LET UNSORTIERT=1 

330 NEXTI 

340 WEND 


350 PRINT : PRINT "Programmende." : END 
Ausführungen zu Programm SORTDAT2: 


Sortieren nach dem Verfahren 'Paarweiser Austausch" 
bzw. "Bubble Sort' (Sortieren von Strings selbst). 


Anzahl der Namen? 4 

4 Namen einzeln eintippen; 
? MAX 

? MARIA 

? TILLMANN 

? LENA 


Kontrollausgabe zum Sortiervorgang: 
MAX MARIA TILLMANN LENA 
MARIA MAX LENA TILLMANN 
MARIA LENA MAX TILLMANN 
LENA MARIA MAX TILLMANN 
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2. Ausführung zu Programm SORTDAT2: 


Sortieren nach dem Verfahren 'Paarweiser Austausch" 
bzw. "Bubble Sort' (Sortieren von Strings selbst). 


Anzahl der Namen? 5 

5 Namen einzeln eintippen: 
? 126 DM 

? FILTER MIT EINSATZ 

? 828 VERORDNUNG 

? 25500 LIRE 

? %A-SAETZE FUER RABATT 


Kontrollausgabe zum Sortiervorgang: 

126 DM FILTER MIT EINSATZ 828 VERORDNUNG 25500 LIRE %-SAETZE FUER RABATT 
126 DM 828 VERORDNUNG 25500 LIRE %-SAETZE FUER RABATT FILTER MIT EINSATZ 
126 DM 25500 LIRE %-SAETZE FUER RABATT 828 VERORDNUNG FILTER MIT EINSATZ 
126 DM %-SAETZE FUER RABATT 25500 LIRE 828 VERORDNUNG FILTER MIT EINSATZ 
%-SAETZE FUER RABATT 126 DM 25500 LIRE 828 VERORDNUNG FILTER MIT EINSATZ 


Struktogramm zu SORTDAT2: 


Eingabe: Anzahl A und dann A Wörter in den Array N$() 
UNSORTIERT = 1 setzen 


Solange UNSORTIERT = ist, wiederhole 


Variable UNSORTIERT auf O0 setzen 


Für I von 1 bis (A-1) wiederhole 


N$(I)< = N$(I+1l) = 
Austausch vornehmen 
von N$(I) und N$(I+1) 

BR 
UNSORTIERT 


Ausgabe der A in N$ abgelegten Wörter aufsteigend sortiert 
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3.9.4 Zwei Arrays mischen 


Mischen heißt, Daten unter Berücksichtigung ihrer Sortierfolge 
zu e ine r Datenstruktur zusammenzufügen. Im Beispielpro- 
gramm MISCHDAT wird der 5-Elemente-Array X() und der 4-Ele- 
mente-Array Y() zum 9-Elemente-Array Z() gemischt. Ein Problem 
beim Mischen besteht in der Ende-Verarbeitung, wenn ein Array 
bereits vollständig eingemischt ist. In MISCHDAT wird dann 
in ein zusätzliches 6. (für X) bzw. 5. (für Y) Element die 999 
als große Zahl gespeichert, um den Array für das weitere Ein- 
mischen zu sperren. Die Anweisung dazu heißt: 
LET X(6) = ABS(999 * (I=6)) 

Hat I den Wert 6, so wird der Vergleich I=6? zu -1 (also wahr) 
und X(6) erhält den Wert ABS(999*-1), d.h. 999. Für die übri- 
gen Werte von I bleibt X(6) Null, da der Vergleich I=6? zu 0 
(also unwahr) führt. 


Codierung zu Programm MISCHDAT: 


100 REM ====== Programm MISCHDAT 
110 PRINT "Arrays X und Y zu einem Array Z mischen." 


120 REM ====== Vereinbarungsteil 
130 DIM X(6), Y(5), Z(9) : "Drei numerische Arrays 


140 REM ====== Anweisungsteil 

150 PRINT : PRINT "Datenbestand 1:" 

160 FOR I=1 TO 5 : READ X(I) : PRINT X(I); : NEXT I 
170 DATA 10,20,30,40,50 : "Datenbestand 1 nach X 
180 PRINT : PRINT "Datenbestand 2:" 

190 FOR I=1 TO 4 : READ Y(I) : PRINT Y(I); : NEXTI 
200 DATA 15,20,25,45 : "Datenbestand 2 nach Y 


210 LET I=1: LET J=1: LET K=1 
220 WHILE NOT ((X(I)=999) AND (Y(J)=999)) 
230 IF X(I)<=Y(J) 
THEN LET Z(K)=X(I): 
LET I=I+l: 
LET X(6)=ABS(999*(I=6)) 
ELSE LET Z(K)=Y(J): 
LET J=J+l: 
LET Y(5)=ABS(999*(J=5)) 
240 LET K=kt+l 
250 WEND 


260 PRINT:PRINT "Datenbestaende 1 und 2 gemischt:" 
270 FOR K=1 TO 9 : PRINT Z(K); : NEXT K 
280 END 


Ausführung zu MISCHDAT: 


Arrays X und Y zu einem Array Z 
mischen. 
Datenbestand 1: 
10 20 30 40 50 
Datenbestand 2: 
15 20 25 45 
Datenbestaende 1 und 2 gemischt: 
10 15 20 20 25 30 40 45 50 
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Struktogramm zu Programm MISCHDAT: 


Eingabeteil 


Wiederhole solange ungleich 999 


ae | 


Y() einmischen X() einmischen 


Datenflußplan zu Programm MISCHDAT: 


Datenbestand 1: X(5) Ei, 
Gemischter Daten- 
PN 3: 2(9) 
Datenbestand 2: vol ] 


3.9.5 Gruppieren von Daten (Gruppenwechsel) 


Das Programm GRUPPDAT erwartet über die Tastatur die Mengen- 
angaben zu Aufträgen, um bei Wechsel der Auftragsnummer deren 
Summe auszugeben. Aufträge mit gleicher Nummer werden zu Grup- 
pen zusammengefaßt, um bei Gruppenwechsel deren Summe auszuge- 
ben. Solche Probleme bezeichnet man als Verdichten 
von Daten oder ls Gruppenwechsel. Wie wird der 
Gruppenwechsel in GRUPPDAT festgestellt? wir unterscheiden 
A2 für "Auftrag neu' und Al für "Auftrag alt', um für (A%X>AIl) 
dann die jeweils nach SI aufaddierte Summe auszugeben und mit 
240 LET S1=0 : LET Al=A2 zum nächsten Datensatz überzugehen. 


Ausführung zu GRUPPDAT: 


RUN 

Einstufiger Gruppenwechsel. 
Auftrag, Menge? 221,10 
Auftrag, Menge? 221,35 
Auftrag, Menge? 221,14 
Auftrag, Menge? 229,3 
221 mit Gruppensumme 59 
Auftrag, Menge? 230,75 
229 mit Gruppensumme 3 
Auftrag, Menge? 230,9 
Auftrag, Menge? 0,0 

230 mit Gruppensumme 84 
Ende. 
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Im Programm GRUPPDAT liegt ein einstufiger Gruppenwechsel vor. 
Daneben können Gruppenwechsel auch mehrstufig sein. 
Dazu dieses Beispiel: Es wird nicht nur nach Aufträgen glei- 
cher Nummer gruppiert (=Untergruppe), sondern zusätzlich noch 
nach Vertreternummern (=Hauptgruppe). Auch ein solcher Haupt- 
gruppenwechsel wird durch den Vergleich (V2<>V1) bzw. '"Vertre- 
ter neu<> Vertreter alt' festgestellt. 


100 REM ====== Programm GRUPPDAT 

110 PRINT "Einstufiger Gruppenwechsel." 

IR % 

120 REM ====== Vereinbarungsteil 

130 'A2, M: Datensatz mit Datenfeldern Auftrag und Menge 
140 'Al, Sl: Auftrag ‘“alt‘ und Gruppensumme 

141 : 

150 REM ====== Anweisungsteil 


160 CLS: INPUT "Auftrag, Menge (0,0=Ende)"; A2,M 
170 LET Al=A2 


171: 

180 WHILE A2<>0 

190 WHILE A2=Al "kein Gruppenwechsel bei A2=Al 
200 LET S1=S1+M "Gruppensumme erhoehen 

210 INPUT "Auftrag, Menge"; A2,M 'Neuen Datensatz eingeben 

220 WEND 

230 PRINT Al;"mit Gruppensumme"; S1 "bei Gruppenwechsel: Gruppensumme 
240 LET S1=0 : LET Al=A2 "ausgeben; Auftrag neu wird alt 
250 WEND 


260 PRINT "Ende." : END 


Im Programm GRUPPDAT werden zwei WHILE-Schleifen geschachtelt 
angeordnet. 
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3.9 Suchen, Sortieren, Mischen und Gruppieren von Daten 


3.10 Sequentielle Datei (Telephondatei) 


3.11 Direktzugriff-Datei (Artikeldatei) 


3.12 Index-sequentielle Datei (Kundendatei) 
3.13 Verkettete Dateien 
3.14 Gekettete Liste als Linked List (Namensdatei) 


3.15 Binärer Baum (Nummerndatei) 
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In Abschnitt 1.3.5 hatten wir vier Formen zur Organisation von 
Dateien bzw. Files erläutert: 


- sequentielle Datei (Zugriff in Speicherungsfolge) 
- Direktzugriff-Datei (Auf den Datensatz direkt) 

- Index-sequentielle Datei (Inhaltsverzeichnis als Index) 
- Verkettete Dateien (Zeiger weist auf andere Datei) 


Für jede Organisationsform wird ein Programmbeispiel in BASIC 
wiedergegeben (Abschnitte 3.10 bis 3.13). 

Da im Zusammenhang mit Dateien häufig zeigerverkettete Listen 
(Linked List) und binäre Bäume als ebenfalls dynamische Daten- 
strukturen verwendet werden, betrachten wir im Anschluß daran 
auch zwei Programmbeispiele hierzu (Abschnitte 3.14 und 3.15). 


- Linked List (Zeiger bilden Verweiskette) 
- Binärer Baum (Wurzel oben und Baumkrone unten) 


Die Beispiele sind so gewählt, daß wichtige programmtechnische 
Probleme zur Datei einfach und klar aufgezeigt werden können. 


Wir wenden uns zunächst der sequentiellen Datei 
zu. 

Das Programm SEQUEN-M verwaltet eine sequentielle Telephon- 
datei. Zur Orientierung sehen wir uns das wiedergegebene Aus- 
führungsbeispiel an. 


Ausführung zur Verwaltung einer Telephondatei über 
Programm SEQUEN-M: 


Telephonliste als sequentielle Datei. 


Menue zur Verwaltung der Telephon-Datei 
0 Beenden 

l Laden der Datei 

2 Speichern der Datei extern 

3 Drucken Gesamtverzeichnis 

4 Eingeben von Eintraegen 

5 Suchen eines Eintrags 

6 Aendern eines Eintrags 

7 Loeschen eines Eintrags 

8 Einfuegen eines Eintrags 

9 Sortieren der Gesamtdatei 


Wahl 0-9? 1 


Name der Datei? TELDATEI 

9 Eincraege von TELDATEI in den Hauptspeicher. 
Weiter mit RETURN 

Menue zur Verwaltung der Telephon-Datei 
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Fortsetzung der Ausführung zu Programm SEQUEN-M: 


Wahl 0-9? 3 

Name: Telephonnummer : 
STROMANN 06262/3332 
WEBER 0721/1300165 
TREIBER 0611/232323 
KOEPFLE 06221/44421 
SCHOENFELDER 06203/5541 
SCHMIDTBORN 06221/332000 
RUMMEL 089/4413998 
MAUCHER 06204/1210 
RUDOLFS 06221/33125 


Dateiende nach 9 Eintraegen. 
Weiter mit RETURN 
Menue zur Verwaltung der Telephon-Datei 


Wahl 0-9? 4 


Name (O=Ende)? DOMBERG 

Telephonnummer? 07622/163390 

Name (O=Ende)? HOFFMANN 
Telephonnummer? 0621/1199110 

Name (O=Ende)? KRAEMER 

Telephonnummer? 06227/1971 

Name (O=Ende)? O 

Weiter mit RETURN 

Menue zur Verwaltung der Telephon-Datei 


Wahl 0-9? 6 


Name des zu aendernden Eintrags? STROMANN 

STROMANN aendern in ? STROMANN-KRAEMER 

06262/3332 aendern in ? 06262/3332 
STROMANN-KRAEMER 06262/3332 korrekt (ja/nein) ? ja 
Weiter mit RETURN 

Menue zur Verwaltung der Telephon-Datei 


Wahl 0-9? 7 


Name des zu loeschenden Eintrags? RUMMEL 
RUMMEL wirklich loeschen (ja/nein)? ja 
Weiter mit RETURN 

Menue zur Verwaltung der Telephon-Datei 


Wahl 0-9? 9 


Sortieren von ll Datensaetzen beginnt. 
Sortieren in Hauptspeicher beendet. 
Weiter mit RETURN 

Menue zur Verwaltung der Telephon-Datei 
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Wahl 0-9? 3 

Name: Telephonnumnmer: 
DOMBERG 07622/163390 
HOFFMANN 0621/1199110 
KOEPFLE 06221/44421 
KRAEMER 06227/1971 
MAUCHER 06204/1210 
RUDOLFS 06221/33125 
SCHMIDTBORN 06221/332000 
SCHOENFELDER 06203/5541 
STROMANN-KRAEMER 06262/3332 
TREIBER 0611/232323 
Weiter blaettern 

WEBER 0721/1300165 


Dateiende nach 11 Eintraegen. 
Weiter mit RETURN 
Menue zur Verwaltung der Telephon-Datei 


Wahl 0-9? 2 


Name der Ausgabedatei? TELDATEI 
Bisherige Datei zerstoeren (ja/nein)? ja 


11 Eintraege vom Hauptspeicher in die TELDATEI 


Menue zur Verwaltung der Telephon-Datei 


Wahl 0-9? O 


Weiter mit RETURN 
Programmende. 


3.10.1 Menügesteuerte Dateiverwaltung 


Das "M'"' im Programmnamen SEQUEN-M steht für "Menüsteuerung". 
Nach Eingabe von RUN wird ein Menü mit zehn Wahlmöglichkeiten 
gezeigt. Nach dem Eintippen von 1 als Menüwahl sowie TELDATEI 
als Dateiname wird diese (derzeit nur neun Einträge umfassende 
de) Datei komplett in den Hauptspeicher geladen. Dann werden 3 
zusätzliche Einträge eingebenen (Menüwahl 4), der Eintrag von 
STROMANN geändert (Menüwahl 6), der Eintrag von RUMMEL aus der 
Datei gelöscht (Menüwahl 7), die verbliebenen elf Datensätze 
nach Namen sortiert (Menüwahl 9) und ausgegeben (Menüwahl 3). 
Abschließend werden die elf Telephoneinträge unter dem Namen 

TELDATEI auf Diskette abgespeichert. 


3.10.2 Dateiweiser Datenverkehr 


Die Datei wird komplett in den Hauptspeicher eingelesen (Menü- 
wahl 1), um sie dort in den Arrays N$() (für die Namen) sowie 
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T$() (für die Telephonnummern) abzulegen und zu verarbeiten 
(Menüwahl 3-9). Abschließend werden alle Einträge komplett Da- 
tensatz für Datensatz auf Diskette als externe Datei abgespei- 
chert (Menüwahl 2). Der Datentransport zwischen Externspeicher 
(Diskette) und Internspeicher (Hauptspeicher) erfaßt immer die 
ganze Datei als Einheit. Der sequentielle Dateizugriff erfolgt 
somit allein bei Menüwahl 1 und 2. Da er einmalig die komplet- 
te Datei umfaßt, spricht man vom dateiweisen Da- 
tenverkehr. Dem Vorteil der bequemen, schnellen (da internen) 
Verarbeitung steht der Nachteil gegenüber, daß die Datei grös- 
senmäßig durch den Hauptspeicherplatz begrenzt ist. Programm 
DIREKT-M im Abschnitt 3.11 zeigt den satzweisen Da- 
tenverkehr als Gegenstück zum dateiweisen Datenverkehr. 


Struktogramm zu Programm SEQUEN-M: 


Arrays N$() und T$ für Namen und Nummern dimensionieren 


Solange Menüwahl W ungleich O0 ist, wiederhole 


Menü anbieten und gültige Menüwahl in W speichern 


Ss 
(6) 
r 
t 
i 
e 
r 
e 
n 


3.10.3 Verarbeitung von Arrays in den Unterprogrammen 


Zum Steuerprogramm in den Zeilen 180-250: Wie auch das Struk- 
togramm zu SEQUEN-M aufzeigt, besteht das Programm aus einer 
Wiederholungsstruktur (Schleife), in die eine Auswahlstruktur 
(Fallabfrage in Zeile 220) eingeschachtelt ist. 

Zum Unterprogramm LADEN in den 1000er Zeilen: Hier erkennt man 
den für die Dateiverarbeitung typischen 3er-Schritt (vgl. Ab- 
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schnitt 1.3.5.4): 

1. Datei öffnen: In 1010 unter dem in F$ enthaltenen Namen. 

2. Datei verarbeiten: In 1020-1040 alle 2-Komponenten-Sätze 
der Datei nach N$() und T$() einlesen. Der 
erste Dateieintrag ist die Satzanzahl N. 

3. Datei schließen: In 1050 unverändert, da nur gelesen. 


Zum Unterprogramm SPEICHERN in den 2000er Zeilen: Als erstes 
wird die Satzanzahl N auf die Datei geschrieben, dann die N 
Datensätze jeweils mit Name und Telephonnummer. 
Zum Unterprogramm SUCHEN in den 5000er Zeilen: Hier wird rein 
sequentiell gesucht. Die Zählerschleife hat nur einen Ausgang. 
Flagge F dient der Ablaufsteuerung. 
Zum Unterprogramm PHYSISCH LÖSCHEN in den 7000er Zeilen: Phy- 
sisch löschen bedeutet tatsächlich löschen. Die Zählerschleife 
7050-7070 bewirkt, daß alle Einträge ab dem zu löschenden Ein- 
trag um eine Position bzw. um ein Element in den Arrays N$() 
und T$() vorgerückt werden. 
Zum Unterprogramm EINFÜGEN in den 8000er Zeilen: Die Zähler- 
schleife 8030 FOR Z=N TO W+2 STEP -1 rückt vom letzten Satz N 
ausgehend Einträge um jeweils eine Position nach hinten, um in 
Zeile 8070-8080 den neuen Eintrag einzufügen. 
Zum Unterprogramm SORTIEREN in den 9000er Zeilen: Wie in Pro- 
gramm SORTDATI (vgl. Abschnitt 3.9.3.1) wird das "Sortieren 
durch Austausch nach Auswahl" verwendet, jedoch mit folgenden 
Abweichungen: Anstelle von Zahlen werden Strings sortiert. 

Die Anzahl der Sortierbegriffe N ist variabel. 


SEQ. TELEPHONDATEI AUF DISKETTE (GGF. AUF KASSETTE): 
Unter dem Betriebssystem CP/M kann En 
u sich über den System-Befehl STROMANN ‚06262/3332 
YPRESIBEDABET 
den derzeitigen Inhalt der TELDATEI WEDER „O2, 1200165 
aseehen Tadsın TREIBER,0611/232323 
a : KOEPFLE, 06221/44421 
R x re ’ SCHOENFELDER , 06203/5541 

- Variable Datensatzlänge bei der SCHMIDTBORN ‚06221/332000 


sequentiellen Datei. 
: RUMMEL,089/4413998 
- Trennungszeichen , bzw. CHR$(13) MAUCHER „06204/1210 


für RETURN zwischen Datenfeldern. RUDOLFS ‚06221/33125 


SEQ. TELEPHONDATEI INTERN IM HAUPTSPEICHER (ARRAY N$, T$): 


N$(): 


STROMANN 


Ness. 
Im dateiweisen Datenverkehr 


Index: 
(1) 


(23) wird die gesamte Datei kom- 
(3) 0 plett in die Arrays N$() 
(4) und T$() eingelesen. 

(5) 


(6) 
(7) 


Am Ende wird der Inhalt 
der Arrays komplett auf 
die Datei geschrieben. 


SCHMIDTBORN 


06221/332000 


Dateiweiser Datenverkehr: Gesamtdatei intern in Arrays ablegen 
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Codierung zu Programm SEQUEN-M: 


100 REM ====== Programm SEQUEN-M 

110 PRINT "Telephonliste als sequentielle Datei." : PRINT 
1ll: 

120 REM ====== Vereinbarungsteil 

130 DIM N$(100): '100-Elemente-Array fuer die Namen 

140 DIM T$(100): "100-Elemente-Array fuer die Telephonnummern 


150 'W,W$: Wahlmoeglichkeit bei Menueauswahl 

160 'F$: Dateiname (Filename) fuer die sequentielle Datei 
170 '1,Z,F: Laufvariablen bzw. Flagge (Flag) 

171: 

180 REM ====== Anweisungsteil 

181 LET W=1 

190 WHILE W<>0 

200 GOSUB 500 "Aufruf Unterprogramm MENUEANGEBOT 
210 CLS 

220 ON W GOSUB 1000, 2000, 3000,4000, 5000, 6000, 7000,8000,9000 
230 PRINT "Weiter mit RETURN"; : INPUT W$ : CLS 

240 WEND 

250 PRINT "Programmende." : END 

260 : 

500 PRINT "Menue zur Verwaltung der Telephon-Datei" 

510 PRINT "------------------------------- " 

520 PRINT " 0 Beenden" 

530 PRINT" 1 Laden der Datei" 

540 PRINT" 2 Speichern der Datei extern" 

550 PRINT" 3 Drucken Gesamtverzeichnis" 

560 PRINT" 4 Eingeben von Eintraegen" 

570 PRINT" 5 Suchen eines Eintrags" 

580 PRINT " 6 Aendern eines Eintrags" 

590 PRINT" 7 Loeschen eines Eintrags" 

600 PRINT " 8 Einfuegen eines Eintrags" 

610 PRINT" 9 Sortieren der Gesamtdatei" 

620 PRINT "----------------------- -- " 


630 INPUT "Wahl 0-9";W$ : LET W=VAL(W$) 

640 IF W<O OR W>9 THEN PRINT "Eingabe bitte zwischen O und 9." : GOTO 630 
650 IF W<>INT(W) THEN PRINT "Eingabe bitte ganzzahlig vornehmen." : GOTO 630 
660 RETURN 

670 : 

1000 INPUT "Name der Datei";F$ 

1010 OPENIN F$+".DAT" 

1020 INPUT #9, N 

1030 FOR I=1 TO N : INPUT #9,N$(I),T$CI) : NEXT I 

1040 PRINT N;"Eintraege von Datei ";F$+".DAT";" in den Hauptspeicher." 
1050 CLOSEIN 

1060 RETURN 


2000 INPUT "Name der Ausgabedatei';F$ 

2010 INPUT "Bisherige Datei zerstoeren (ja/nein)";W$ 

2020 IF W$<>"ja'' THEN 2080 

2030 OPENOUT F$+".DAT" 

2040 PRINT #9,N 

2050 FOR I=1 TO N : PRINT #9,N$(CI);",";T$CL) : NEXT I 

2060 PRINT N;"Eintraege vom Hauptspeicher in die Datei ";F$+'".DAT!" 
2070 CLOSEOUT 

2080 RETURN 
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Codierung zu Programm SEQUEN-M (erste Fortsetzung): 


3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
4000 
4010 
4020 
4030 
4040 
4050 
5000 
5010 
5020 
5030 


5040 
5050 
5060 
5070 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 


PRINT "Name: Telephonnumnmer:" 


FOR I=1 TON 
PRINT N$(I); TAB(24); T$(CI) 
IF INT(I/10)=1/10 THEN INPUT "Weiter blaettern",W$ 
NEXT I 
PRINT "Dateiende nach" ;N;"Eintraegen." 
RETURN 


LET N=N+1 
INPUT "Name (O=Ende)"; N$(N) 

IF N$(N)="0" THEN LET N=N-1 : GOTO 4040 
INPUT "Telephonnummer"; T$(N) : GOTO 4000 
RETURN 


INPUT "Zu suchender Name"; W$ 
LET F-0 "Flagge gesenkt 
FOR I=1 TON 

IF LEFT$(N$(I),LEN(W$) )=W$ 

THEN PRINT "Gefundene Nummer: ";T$(I) : LET I=N : LET F=-1 

NEXT I 
IF NOT F THEN PRINT W$;" nicht gefunden." 
RETURN 


INPUT "Name des zu aendernden Eintrags";W$ : LET F=-0 "Upro AENDERN 
FOR I=1 TON 


IF LEFT$(N$(I),LEN(W$))=W$ THEN 6030 ELSE 6090 
WHILE W$<>" ja" 
PRINT N$(I)" aendern in "; : INPUT N$(I) 
PRINT T$(I);" aendern in "; : INPUT T$(I) 
PRINT N$(I);" ";T$(I);" korrekt (ja/nein) "; : INPUT W$ 
WEND 
LET I=N : LET F=-1 
NEXT I 
IF NOT F THEN PRINT "Eintrag ";W$;" nicht gefunden." 
RETURN 
INPUT "Name des zu loeschenden Eintrags";W$ : LET F-0_ "Upro LOESCHEN 


FOR I=1 TON 
IF LEFT$(N$(I),LEN(W$))<>W$ THEN 7100 
PRINT N$(I);" wirklich loeschen (ja/nein)"; : INPUT W$ 
IF W$<>"ja" THEN 7090 
FOR Z=I TO N-1 
LET N$(Z)=N$(Z+1) : LET T$(Z)=T$(Z+1) 
NEXT Z 
LET N=N-1 
LET I=N : LET F=-1 
NEXT I 
IF NOT F THEN PRINT W$;" nicht gefunden. Kein Loeschen moeglich." 
RETURN 
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Codierung zu Programm SEQUEN-M (zweite Fortsetzung): 


8000 INPUT "Datei ";F$;" hat";N;"Eintraege. Nach welchem" 'Upro EINFUEGEN 
8010 INPUT "Eintrag einfuegen (Satznummer tippen)"; W 

8020 LETN = N+l 

8030 FOR Z=N TO W+2 STEP -1 

8040 LET N$(Z)=N$(Z-1) : LET T$(Z)=T$(Z-1) 

8050 NEXT Z 

8060 PRINT "Nachfolgende Eintraege sind verschoben." 

8070 INPUT "Einzufuegender Name "; N$(W+l) 

8080 INPUT "Einzufuegende Nummer "; T$(W+1) 

8090 RETURN 


9000 PRINT "Sortieren von";N;"Datensaetzen beginnt." 'Upro SORTIEREN 
9010 FOR I=1 TO N-1l "Sortiermethode "Austausch nach Auswahl" 
9020 LET STELLMIN=I : LET NAMMIN$=N$(I) : LET TELMIN$=T$(I) 

9030 FOR Z=(I+l) TON 

9040 IF N$(Z)<NAMMIN$ THEN LET STELLMIN=Z: NAMMIN$=N$(Z): TELMIN$=T$(Z) 
9050 NEXT Z 

9060 LET N$(STELLMIN)=N$(I) : LET N$(I)=NAMMIN$ 

9070 LET T$(STELLMIN)=T$(I) : LET T$CI)=TELMIN$ 

9080 NEXT I 

9090 PRINT "Sortieren in Hauptspeicher beendet." 

9100 RETURN 


Schneider BASIC stellt die Anweisungen OPENIN, INPUT #9 sowie 
CLOSEIN bereit, um eine Datei (Kanal 9) sequentiell zu lesen. 


1010 OPENIN TELDATEI.DAT 1. Datei öffnen 
1030 INPUT #9,Einträge 2. Einträge in RAM lesen 


1050 CLOSEIN 3. Datei schließen 


Drei-Schritt-Folge zum Lesen von Einträgen aus einer Datei 


Im Unterprogramm 1000 von SEQUEN-M wird durch die Anweisungen 


1000 INPUT "Name der Datei";F$ 
1010 OPENIN F$+".DAT" 


der Dateiname variabel eingegeben und in F$ gespeichert. 


Beim Schreiben von Einträgen auf die Diskettendatei treten an 
die Stelle von OPENIN, INPUT #9 sowie CLOSEIN die Anweisungen 
OPENOUT, PRINT #9 und CLOSEOUT: man arbeitet mit einer Ausga- 
bedatei (OUT). Zu beachten ist, daß beim Schreiben in Zeile 
2050 das "," angegeben wird, um die Einträge voneinander zu 
trennen. 
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Das Programm DIREKT-M verwaltet eine Artikeldatei. Die Ausfüh- 
rung zu diesem Programm ähnelt der von Programm SEQUEN-M, weil 
beide menügesteuert ablaufen. 

Dennoch weist Programm DIREKT-M einige Abweichungen auf: 

- Artikeldatei weist Datensätze mit konstanter Satzlänge auf 

- Overlay durch Verkettung von fünf eigenständigen Programmen 
- Satzweiser Datenverkehr anstelle dateiweisem Datenverkehr 

- Direkte Adressierung des Datensatzes 

Diese vier Punkte wollen wir nun im einzelnen erläutern. 


Das im Schneider CPC fest eingebaute ROM-BASIC unterstützt die 
Direktzugriff-Datei nicht unmittelbar. Die auf Schneider CPC 
und JOYCE lauffähigen Software-BASICs (z.B. MBASIC, GBASIC und 
Mallard BASIC) hingegen sehen spezielle Anweisungen wie FIELD, 
GET und PUT vor. Das folgende Programm DIREKT-M verwendet die- 
se Anweisungen und erfordert deshalb z.B. das MBASIC. 


BASIC auf Schneider 


| 
ROM-BASIC (Firmware) Disketten-BASIC (Software) 
- Schneider BASIC - MBASIC, GBASIC, Mallard 
BASIC 
- Vorteil: Grafik, Musik - Vorteil: Dateiverwaltung, 


weite Verbreitung (unter 
CP/M und MS-DOS) 


BASIC als Firmware und als Software auf Schneider 


3.11.1 Datei mit konstanter Datensatzlänge 


Die Datensätze einer Artikeldatei namens ARTDATEI haben alle 
eine feste Satzlänge von L=23 Stellen und bestehen aus jeweils 
vier Datenfeldern. 


Inhalt: Artikelnummer: Bezeichnung: Menge: Stückpreis: 
Stellen: / 2 / 15 / 2 / 4 / 
(DATENTYP) INTEGER STRING INTEGER REAL-einfach 
Var.-Name: Al A2$ A3 A4 
(Name Puffer) P1$ P2$ P3$ P4$ 


Beispiel: 


Datensatz-Beschreibung für die ARTDATEI 
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In MBASIC hat die Direktzugriff-Datei im Gegensatz zur sequen- 
tiellen Datei eine feste Datensatzlänge, 
die in der OPEN-Anweisung angegeben werden muß: 
190 OPEN "R", #1, "ARTDATEI", 23 
R)andom-Datei 
Dateinummer 
Dateiname 
Datensatzlänge fest 


3.11.2 Overlay durch Verkettung von Programmen 


Als Menüprogramm ruft das Programm DIREKT-M je nach Menüwahl 
durch die Anweisungen 
260 ... 290 RUN "Programmname" 
eines der Programme 
DIREKT-A Eine Direktzugriff-Datei leer A)nlegen 
DIREKT-S Datensätze direkt auf Datei S)chreiben 
DIREKT-L Einen bestimmten Datensatz direkt L)esen 
DIREKT-F Den Lagerbestand F)ortschreiben 
auf. Durch den Aufruf wird Programm DIREKT-M überlagert (over- 
lay); im Hauptspeicher tritt an die Stelle von DIREKT-M das 
jeweils gerufene Programm. 
Nach Ausführung eines gerufenen Programms lädt dieses durch 
... RUN "DIREKT-M" 
das Menüprogramm wieder in den Hauptspeicher. 
Mit dem Overlay werden alle vom rufenden Programm bislang er- 
zeugten Variablenwerte zerstört. 


Codierung zu Programm DIREKT-M: 


100 REM ====== Programm DIREKT-M 
110 'Menueprogramm (M): Verwaltung einer 
120 "Artikeldatei als Direktzugriff-Datei. 


130 REM ====== Vereinbarungsteil 

140 'E$, E: Eingabe bei Menueauswahl 
150 REM ====== Anweisungsteil 

160 PRINT 

170 PRINT "*1l = Neue Datei anlegen *" 
180 PRINT "*2 = Datensaetze schreiben*" 
190 PRINT ''*3 = Datensaetze lesen x 
200 PRINT "*4 = Bestand fortschreiben*" 
210 PRINT '"*5 = Dateizugriff beenden *" 


220 INPUT "Wahl 1-5"; E$ : LET E=VAL(E$) 
230 IF E=5 THEN PRINT "Ende." : END 


240 ON E GOTO 260,270,280,290 
250 PRINT "Eingabefehler." : GOTO 220 


260 RUN "DIREKT-A" 'Programm-Overlay 
270 RUN "DIREKT-S" 
280 RUN "DIREKT-L" 
290 RUN "DIREKT-F" 
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3.11.3 Datensatzweiser Datenverkehr 


Das Programm SEQUEN-M hatte im dateiweisen Datenverkehr zu Be- 
ginn die gesamte Datei in den Hauptspeicher eingelesen und in 
Arrays abgelegt. Bei der durch das Programm DIREKT-M verwalte- 
ten Artikeldatei hingegen wird jeweils unmittelbar nach der 
Anforderung ein einzelner Satz gelesen, geschrieben oder aber 
geändert. Wir nannten dies "datensatzweisen Datenverkehr". Die 
Artikeldatei kann damit natürlich größer sein als der verfüg- 
bare Hauptspeicherplatz, da zwischen dem externen und dem in- 
ternen Speicher stets nur ein Datensatz übertragen wird. Wie 
zeigt sich der datensatzweise Datenverkehr in der Codierung? 
In jede m Programm findet sich mindestens eine Anweisung 
mit einem Dateizugriff (PUT oder GET). 


Zum direkten Schreiben mittels PUT: 

Die Anweisung PUT schreibt einen Datensatz aus dem sogenannten 
Dateipuf fer auf die Datei. Diesen Dateipuffer können 
wir uns als Zwischenspeicher und Fenster vorstellen, durch das 
die Datensätze formgerecht gereicht werden. 


Codierung zu Programm DIREKT-A: 


100 REM ====== Programm DIREKT-A 
110 ‚Programm zum Anlegen (A) einer Datei: "Alte" Datei loeschen, 
120 ''neue' Datei generieren und ggf. mit Leersaetzen beschreiben." 


130 REM ====== Vereinbarungsteil 

140 ' F$: Name einer Direktzugriff-Datei 

150 ' ANZ: Anzahl der Datensaetze 

160 ' Pı$,P2$,P3$,P4%: Datensatz mit 4 Datenfeldern im Dateipuffer 
170 ' S: Satznummer 

180 REM ====== Anweisungsteil 


190 INPUT "Dateiname"; F$ 

200 PRINT "Wirklich loeschen und anlegen?" 

210 LET E$=INPUT$(1) : PRINT E$ : IF E$<>"j'" THEN 380 
220 ON ERROR GOTO 240 

230 KILL F$ 

240 IF ERR=53 THEN RESUME 260 

250 PRINT "Datei ";F$;" geloescht." 

260 OPEN "R", #1, F$, 23 

270 FIELD #1, 2 AS Pi1$, 15 AS P2$, 2 AS P3$, 4 AS P4$ 
280 PRINT "Datei ";F$;" neu eroeffnet." 


290 PRINT "Leersaetze auf Datei schreiben?" 

300 LET E$=INPUT$(1) : PRINT E$ : IF E$<>"j'" THEN 370 

310 INPUT "Vorgesehene Satzanzahl"; ANZ 

320 LSET P1$=MKI$(0): LSET P2$=" ": LSET P3$=MKI$(0): LSET P4$=MKS$(O) 
330 FOR S= 1 TO ANZ 

340 PUT #1, S 

350 NEXT S 

360 PRINT ANZ; "Leersaetze geschrieben." 


370 CLOSE #1 
380 RUN "DIREKT-M" 
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Mit der Anweisung FIELD teilen wir den Dateipuffer in Datenfel- 
der (= fields) ein und legen für jedes Datenfeld die Feldlänge 
und die Puffervariable fest. 80 FIELD 2 AS P1$ bewirkt, daß 


VOR DEM SCHREIBEN MIT PUT: WERTE IN PUFFERVARIABLEN SETZEN 


100 LSET P1$=MKI$(1000) Zahl 1000 vom Datentyp INTEGER 
in STRING mit Länge 2 Bytes. 
110 LSET P2$=MKS$(2.5) Zahl 2.5 vom Typ REAL-einfach 
in STRING mit Länge 4 Bytes. 
120 LSET P3$=MKD$(0.09) Zahl 0.09 vom Typ REAL-doppelt 
in STRING mit Länge 8 Bytes. 
130 LSET P4$="ROSE" STRING "ROSE" nach P4$ zuweisen 


NACH DEM LESEN MIT GET: WERTE AUS PUFFERVARIABLEN ENTNEHMEN 


200 LET A1=CVI(P1$) P1$ in INTEGER-Zahl Al. 

210 LET A2=CVS(P2$) P2$ in REAL-einfach-Zahl A2. 
220 LET A3=CVD(P3$) P3$ in REAL-doppelt-Zahl A3. 
240 LET A4$=P4$ P4$ bleibt STRING A4$ (stets 


verschiedene Namen verwenden!) 
Datenfelder in Dateipuffer setzen und aus Dateipuffer nehmen 


Codierung zu Programm DIREKT-S: 


100 REM ====== Programm DIREKT-S 
110 '"Schreibprogramm (S): Einen oder mehrere Saetze auf die Artikeldatei 
120 "direkt schreiben (Adressrechnung: SatzNr = ArtNr minus 1000). 


130 REM ====== Vereinbarungsteil 

140 ' ARTDATEI: Direktzugriff-Datei 

150 ' Al, A2$, A3, A4: Datensatz mit 4 Datenfeldern im Programm 

160 ' PI$, P2$,P3$,P4%: Datensatz mit 4 Datenfeldern im Dateipuffer 
170 '5; Satznummer zur direkten Adressierung (Direktzugriff) 
180 REM ====== Anweisungsteil 


190 OPEN "'R", #1, "ARTDATEI", 23 

200 FIELD #1, 2 AS Pl$, 15 AS P2$, 2 AS P3$, 4 AS P4$ 
210 PRINT "Saetze schreiben (O=Ende)." 

220 PRINT "Nummer, Bez., Bestand, Preis:" 

230 INPUT Al, A2$, A3, A4 


240 WHILE Al<>O 

250 LSET P1$=MKI$(Al) : LSET P2$=A2$ : LSET P3$=MKI$(A3) : LSET P4$=MKS$(A4) 
260 LET S = Al-1000 "Adressrechnung 

270 PUT #1, S 

280 PRINT "Nummer, Bez., Bestand, Preis:" 

290 INPUT Al, A2$, A3, A4 

300 WEND 


310 CLOSE #1 
320 RUN "DIREKT-M'" 
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ein zwei Bytes langes Datenfeld für die Puffervariable P2$ re- 
serviert wird (Puffervariablen sind stets vom Typ STRING). 

Die Anweisung LSET setzt Werte linksbündig (L wie Left) in die 
entsprechende Puffervariable. Da Puffervariablen STRINGs sind, 
müssen numerische Werte umgewandelt werden. Dazu verwenden wir 
die Funktionen MKI$, MKS$ und MKD$. 90 LSET P1$=MKI$(1002) be- 
wirkt z.B. folgendes: Wandle die INTEGER-Zahl 1002 in einen 
STRING der Länge 2 um und setze diesen linksbündig in die Puf- 
fervariable PI1$. 


Zum direkten Lesen mittels GET: 

Mit der Anweisung GET können wir umgekehrt einen Datensatz aus 
der Datei direkt lesen und in den Dateipuffer setzen. 

100 GET #1,34 setzt z.B. den 34. Datensatz von Datei 1 in den 
Dateipuffer. Bevor wir uns den Datensatz ausgeben lassen kön- 
nen, müssen wir die STRINGS in den Puffervariablen ggf. wieder 
in numerische Werte zurückverwandeln. Dafür benutzen wir die 
Funktionen CVI, CVS und CVD. Ein Beispiel: 200 LET A1=CVI(P1$) 
wandelt den 2-Zeichen-STRING in Puffervariable P1$ in eine 
INTEGER-Zahl um. 


Codierung zu Programm DIREKT-F: 


100 REM ====== Programm DIREKT-F 
110 "'Fortschreibungsprogramm (F): Einen Satz aus der Artikeldatei 
120 "suchen, zeigen und seinen Bestand aendern, d.h. fortschreiben. 


130 REM ====== Vereinbarungsteil 
140 ' ARTDATEI: Direktzugriff-Datei 


150 ' Al, A2$, A3, A4: Datensatz mit 4 Datenfeldern im Programm 
160 ' Pı$,P2$,P3$,P4%: Datensatz mit 4 Datenfeldern im Dateipuffer 
170 ' SUCH: Artikelnummer als Suchbegriff zur Aenderung 

180 ' S: Satznummer zur direkten Adressierung 

190 REM ====== Anweisungsteil 


200 OPEN "R", #1, "ARTDATEI", 23 

210 FIELD #, 2 AS P1$, 15 AS P2$, 2 AS P3$, 4 AS P4$ 

220 PRINT "Nr. zur Fortschreibung?" : INPUT SUCH 

230 LET S = SUCH - 1000 

240 ON ERROR GOTO 360 

250 GET#1,S 

260 LET Al=CVICPI$): LET A2$=P2$: LET A3=CVI(P3$): LET A4=CVS(P4$) 
270 PRINT "Artikelnummer: "; Al 

280 PRINT "Bezeichnung: "»A2$ 

290 PRINT "Bestandsmenge: "; A3 

300 PRINT "Stueckpreis: "; A4 

310 INPUT "Bestandaenderung +- "; ZUAB 

320 LET A3 = A3 + ZUAB "Fortschreibung des Bestandes 
330 LSET P3$=MKI$(A3) 

340 PUT#1,S 

350 PRINT "Fortgeschrieben auf"; A3; "." 


360 IF ERR>O THEN PRINT "... Fehlanzeige fuer"; SUCH 
370 CLOSE #1 
380 RUN "DIREKT-M'" 
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1) DATEI EROEFFNEN UND DATEIPUFFER AUFTEILEN 


190 OPEN "R", 
200 FIELD #1, 


#l, 
2 AS Pi$, 


"ARTDATEI", 23 
15 AS P2$, 


Datensatzlänge 23 fest. 
2 AS P3$, 4 AS P4$ 
Dateipuffer mit 4 Feldern. 


2) DATENSATZ MIT SATZNUMMER 19 DIREKT SCHREIBEN 


300 LSET P1$=MKI$(1019): LSET P2$="IRIS" 
310 LSET P3$=MKI$(80) : LSET P4$=MKS$(9.55) 
320 PUT #1, 19 


3) DATENSATZ MIT SATZNUMMER 2 DIREKT LESEN 


500 GET #1, 2 
510 LET AI=CVI(P1$) 
520 LET A3=CVI(P3$) 
530 PRINT "2. Satz: 


LET A2$=P2$ 
LET A4=CVS(P4$) 
';A1,A2$,A3,A4 


Satz linksbündig 
in Dateipuffer 
setzen und dann 
schreiben. 


Satz lesen und 
aus Dateipuffer 
in die Satzvari- 
ablen bringen. 


Über den Dateipuffer direkt lesen und direkt schreiben 


Codierung zu Programm DIREKT-L: 


100 REM ====== Programm DIREKT-L 

110 "Leseprogramm (L): Einen oder mehrere Saetze aus der Artikeldatei 
120 "direkt lesen (Adressrechnung: SatzNr = Suchbegriff - 1000). 

130 REM ====== Vereinbarungsteil 


140 ' ARTDATEI: Direktzugriff-Datei 

150 ' Al, A2$, A3, A4: Datensatz mit 4 Datenfeldern im Programm 
160 ' P1$,P2$,P3$,P4%: Datensatz mit 4 Datenfeldern im Dateipuffer 
170 ' SUCH Artikelnummer als Suchbegriff 

180 ' S; Satznummer zur direkten Adressierung 


190 
200 
210 
220 
230 


REM ====== Anweisungsteil 

OPEN "'R", #1, "ARTDATEI", 23 

FIELD #1, 2 AS P1$, 15 AS P2$, 2 AS P3$, 4 AS P4$ 
INPUT "Artikelnummer (Ende=negativ)"; SUCH 

WHILE SUCH >1000 


240 LET S = SUCH - 1000 

250 ON ERROR GOTO 340 

260 GET #1, S 

270 LET Al=CVI(Pl$): LET A2$=P2$: LET A3=CVI(P3$): LET A4=CVS(P4$) 
280 PRINT "Artikelnummer: "; Al 

290 PRINT "Bezeichnung: "sa2$ 

300 PRINT "Bestandsmenge: "; A3 

310 PRINT "Stueckpreis: "; A4 

320 PRINT : PRINT "Artikelnummer (Ende=neg.)?" : INPUT SUCH 

330 WEND 


340 
350 
360 


IF ERR>O THEN PRINT "... nicht gefunden." : RESUME 320 
CLOSE #1 
RUN "DIREKT-M" 
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Ausführung zu Programm DIREKT-M: 


*] = Neue Datei anlegen * 
*2 = Datensaetze schreiben* 
*3 = Datensaetze lesen * 
*4 = Bestand fortschreiben* 
*5 = Dateizugriff beenden * 


Wahl 1-5? 1 
Dateiname? ARTDATEI 
Wirklich loeschen und anlegen? 


J 

Datei ARTDATEI geloescht. 

Datei ARTDATEI neu eroeffnet. 
Leersaetze auf Datei schreiben? 


n 

*] = Neue Datei anlegen * 
*2 = Datensaetze schreiben* 
*3 = Datensaetze lesen * 
*4 = Bestand fortschreiben* 
*5 = Dateizugriff beenden * 


Wahl 1-5? 2 

Saetze schreiben (O=Ende), 
Nummer, Bez., Bestand, Preis: 
? ORCHIDEE, 

?Redo from start 

? 1002,ORCHIDEE,50,27.50 
Nummer, Bez., Bestand, Preis: 
? 1001,CLEMATIS,30,19.25 
Nummer, Bez., Bestand, Preis: 
? 1019,IRIS,80,9.55 

Nummer, Bez., Bestand, Preis: 
? 1011,LILIE,25,14.05 

Nummer, Bez., Bestand, Preis: 


? 0,0,0,0 

*] = Neue Datei anlegen * 
*2 = Datensaetze schreiben* 
*3 = Datensaetze lesen * 
*4 = Bestand fortschreiben* 
*5 = Dateizugriff beenden * 
Wahl 1-5? 4 

Nr. zur Fortschreibung? 

? 1019 


Artikelnummer: 1019 
Bezeichnung: IRIS 
Bestandsmenge: 80 
Stueckpreis: 9.55 
Bestandaenderung +- ? -13 
Fortgeschrieben auf 67 . 


*] = Neue Datei anlegen * 
*2 = Datensaetze schreiben* 
*3 = Datensaetze lesen * 
*4 = Bestand fortschreiben* 
*5 = Dateizugriff beenden * 
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Wahl 1-5? 3 
Artikelnummer (Ende=negativ)? 1002 
Artikelnummer: 1002 


Bezeichnung: ORCHIDEE 
Bestandsmenge: 50 
Stueckpreis:; 27.5 
Artikelnummer (Ende=neg.)? 
? 1019 

Artikelnummer: 1019 
Bezeichnung: IRIS 
Bestandsmenge: 67 
Stueckpreis: 9.55 


Artikelnummer (Ende=neg.)? 
? 50000 
... nicht gefunden. 


Artikelnummer (Ende=neg.)? 


?-1 

*] = Neue Datei anlegen * 
*2 = Datensaetze schreiben* 
%*3 = Datensaetze lesen * 
*4 = Bestand fortschreiben* 
*5 = Dateizugriff beenden * 
Wahl 1-5? 5 

Ende. 


Struktogramm zum Leseprogramm DIREKT-L: 


ARTDATEI eröffnen als Direktzugriff-Datei 


Zu suchende Artikelnummer SUCH eintippen 


Solange SUCH größer als 1000 ist, wiederhole 


Adreßrechnung durchführen: S = SUCH - 1000 


Artikelsatz mit Satznummer S direkt lesen 


=, gefunden (kein ERROR)? = ı 


Satzkomponenten Fehlerhinweis 
A1,A2$,A3 und A4 ausgeben 
zeigen 


Den nächsten Suchbegriff SUCH eintippen 


ARTDATEI unverändert wieder schließen 
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3.11.4 Direkte Adressierung des Datensatzes 


Artikel 1019 ist als 19. Satz in der Artikeldatei gespeichert, 
Artikel 1001 als 1. Satz, Artikel 1034 als 34. Satz. Die zeit- 
liche Reihenfolge der Speicherung spielt keine Rolle. Solange 
z.B. für den "dazwischengehörenden' Artikel 1007 kein Satz ge- 
speichert ist, bleibt der entsprechende Speicherplatz auf der 
Diskette eben leer - es entstehen Lücken. Die schlechte 
Ausnutzung des Speicherplatzes ist sicher ein Nachteil der Di- 
rektzugriff-Datei. 

Der Zusammenhang 

"Satznunmmer S ergibt sich aus Artikelnummer Al minus 1000" 
wird als Adreßrechnung bezeichnet. Diese Adreß- 
rechnung stellt einen umkehrbaren Zusammenhang zwischen der 
Artikelnummer als Ordnungsbegriff einerseits und der relativen 
Satznummer als Speicherort andererseits her. "Umkehrbar', weil 
aus der Satznummer (z.B. 119. Satz) die zugehörige Artikelnum- 
mer abgeleitet werden kann (also 1119). Man bezeichnet diese 
umkehrbare Adreßrechnung als direkt e Adressierung. 


Die Adreßrechnung muß v o r dem Dateizugriff vorgenommen wer- 
den, d.h. vor jeder PUT- oder GET-Anweisung: 
- In Programm DIREKT-S bewirken die Anweisungen 
260 LET S=A1-1000 
270 PUT #1, S ; 
daß nach Berechnung der Satznummer S in Zeile 260 (für Arti- 
kelnummer A1=1019 z.B. wird S=19) der Datensatz als 19. Satz 
direkt in die ARTDATEI geschrieben wird. 
- In Programm DIREKT-L bewirkt die Anweisungsfolge 
240 LET S=SUCH-1000 
260 GET #1, S 
dementsprechend, daß nach Ermittlung der Satzadresse S aus 
dem Suchbegriff SUCH der S. Datensatz direkt gelesen wird. 
- In Programm DIREKT-F wird nach der Adreßrechnung in 230 zu- 
nächst in 250 ein Satz gelesen, um diesen nach der Bestands- 
fortschreibung in 340 an dieselbe Stelle S wieder zurückzu- 
schreiben. 
- In Programm DIREKT-A werden zum Schreiben von Leersätzen die 
Satznummern nicht über eine Adreßrechnung gewonnen, sondern 
über die Anweisung 330 FOR S=1 TO ANZ mit Satzzahl ANZ. 


Struktogramm zum Schreibprogramm DIREKT-S: 


Artikeldatei namens ARTDATEI eröffnen 
Satz eintippen und den Variablen A1,A2$,A3,A4 zuweisen 


Solange Artikelnummer Al ungleich : ist, wiederhole 


Satz A1,A2$,A3,A4 in Dateipuffer P1$,P2$,P3$,P4$ setzen 


Adreßrechnung: Satznummer S = Artikelnummer Al - 1000 


Inhalt des Dateipuffers nach ARTDATEI schreiben 


Datensatz nach A1,A2$,A3,A4 eintippen 
ARTDATEI erweitert wieder schließen 
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3.11.5 Indirekte Adressierung des Datensatzes 


Ein Beispiel: Kleinste Artikelnummer 1, größte Artikelnummer 
300000, insgesamt 2000 Artikel im Sortiment, "SatzNr = ArtNr" 
als Adreßrechnung. Für die nur 2000 Artikel müssten 300000 Ar- 
tikelsätze in der Datei bereitgestellt werden. Dieses Adreß- 
rechnungsverfahren der direkt en Adressierung ist un- 
geeignet. Aus diesem Grunde wird bei Streuung des Ordnungsbe- 
griffs ein Verfahren der indirekten Adressierung 
gewählt wie z.B. das Divisions-Rest-Verfahren. Dabei entsteht 
das Problem, daß für zwei Ordnungbegriffe dieselbe Satznummer 
berechnet wird; es kommt zu Doppelbelegung bzw. Überläufern, 
die natürlich gesondert gespeichert werden müssen. 

Im Zusammenhang mit der indirekten Adressierung spricht man 
auch von Ha shi ng (übersetzt: etwa "'Mischmasch') bzw. 
vom Hash-Code. 


DIREKTE ADRESSIERUNG: 

- Adreßrechnung "SatzNr = ArtNr - 1000" ergibt für ArtNr 
1:0107510457:,.1,002, Ber EdVen SsatzNra 10, AS De 

- Adreßrechnung "SatzNr = PersNr" ergibt für die PersNr 
110:0:187772.0:74577 23, Wo. a ciesSactznza 1 001.877, 0745,23 

- Aus dem Ordnungsbegriff läßt sich die Satznummer errechnen 
und umgekehrt aus der Satznummer der Ordnungsbegriff. 

- Lücken im Ordnungsbegriff führen zu Lücken in der Datei. 


INDIREKTE ADRESSIERUNG: 

- Adreßrechnung "Divisions-Rest-Verfahren" als Beispiel: 
Ordnungsbegriff durch Satzanzahl der Datei (=1200) teilen. 
ArtNr 10800 ergibt SatzNr 1 / ArtNr 1453 ergibt SatzNr 254 
10800:1200=9 Rest 0+1 = 1 / 1453:1200=1 Rest 253+1 = 254 

- Aus der Satznummer läßt sich der Ordnungsbegriff nicht 
eindeutig zurückrechnen (Problem der Überläufer). 

- Ziel: Weit verstreute Ordnungsbegriffe (z.B. ArtNr) zu eng 
beieinanderliegenden Satzadressen (SatzNr) verdichten. 


Zwei Adreßrechnungs-Arten: Direkte und indirekte Adressierung 


Die indirekte Adressierung ist auch stets dann angezeigt, wenn 
ein klassifizierende r Ordnungsbegriff ange- 
wendet wird. Als Beispiel betrachten wir eine Artikelnummer. 


Position: Inhalt: Bedeutung: 

I 2 AA-2ZZ Zwei Anfangsbuchstaben des Artikelnamens 
3-4 zahl Lagerstelle 

Daneı.7. zahl Nummer des Lieferanten 

8 Ziffer Nummer für identische Positionen 1-7 


Die Artikelnummern HA093320 (Hammer, Lagerstelle 9, Lieferan- 
tennummer 332) und ME421000 (Meisel, Lagerstelle 42, Lieferan- 
tennummer 100) können nur indirekt adressiert gelesen werden. 


Artikelnummer als klassifizierender Ordnungsbegriff 
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Wie zur Direktzugriff-Datei (Abschnitt 3.11) wird auch zur De- 
monstration der index-sequentiellen Datei (Abschnitt 3.12) auf 
MBASIC Bezug genommen. 


Begründung: 

- MBASIC (bzw. GBASIC, GWBASIC, HBASIC) läuft auf Schneider, 
muß allerdings zu Beginn von Diskette in den RAM geladen 
werden. 

- MBASIC (für Microsoft BASIC) stellt komfortable Anweisungen 
zur Verarbeitung der Direktzugriff-Datei zur Verfügung. Die- 
se Anweisungen werden auch für die index-sequentielle Datei- 
organisation benötigt. 

- MBASIC läuft auf 8-Bit-Computern unter CP/M sowie auf 
16-Bit-Computern unter MS-DOS gleichermaßen. 

- Die in BASIC geschriebenen Dateiverwaltungen sind zum über- 
wiegenden Teil in Microsoft BASIC programmiert. 


In Abschnitt 1.3.5.1 hatten wir eine Kundendatei dargestellt, 
auf die über eine Indexdatei als Inhaltsverzeichnis zugegrif- 
fen wurde. Diese Kundendatei wollen wir in der Sprache MBASIC 
programmieren, um daran die index-sequentielle Dateiorganisa- 
tion zu demonstrieren. 

Zum Begriff "index-sequentiell' eine Anmerkung: Die Terminolo- 
gie ist dabei nicht einheitlich. Der über eine Indexdatei vor- 
genommene Dateizugriff wird auch als Key - Random - 
Dateiorganisation bezeichnet mit dem 1. Zugriff über einen In- 
dex (Key) und dem 2. Zugriff direkt (Random), während dann die 
index - seqguentiell]le Dateiorganisation auf 
den Magnetplattenstapel ausgerichtet ist. ISAM für "Index Se- 
quential Access Method' entspricht dieser Begriffsauslegung. 


Datendatei namens Zusätzliche Indexdateien namens 
KUNDATEI: INDDATEI: INDS: 

K/P1$ K$/P2$ u/Pp3$ K/PaA$ S/PS$ K/P6$ S/P7$ 
104 MAUCHER 2.958.600. 

101 FREI 6500.00 

110 AMANN ON RS 

109 HILDEBRANDT 4590.05 

Datensatz mit vielen Indexsatz mit zumeist nur zwei 
Datenfeldern (hier 3). Datenfeldern (Schlüssel, Adresse). 


Zur Variablenbezeichnung K/P1$: 
K=Kundennummer im Programm; P1$=Kundennummer in Dateipuffer 


Eine (umfangreiche) Datendatei und zwei (kurze) Indexdateien 
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3.12.1 Trennung von Datendatei und Indexdatei(en) 


Die Programme INDSEQ-S, INDSEQ-L und INDSEQ-T (S=Schreiben, 
L=Lesen, T=SorTiren) verwalten eine windex-sequentiell organi- 
sierte Datei. 

Betrachten wir zunächst die Ausführungen: 

Über das Schreibprogramm INDSEQ-S werden vier Kunden 104, 101, 
110 und 109 über Tastatur eingegeben und auf eine Kundendatei 
geschrieben. Jeder Kundensatz besteht aus Kundennummer, Name 
und Umsatz. Parallel hierzu wird im Indexsatz die Kundennummer 
mit der zugehörigen Satznummer in eine Indexdatei geschrieben. 


RUN LOAD "INDSEQ-S" 
Kundendatei index-sequentiell beschreiben. 
Kundendatei: Name, Laufwerk? KUNDATEI, A 
Indexdatei: Name, Laufwerk? INDDATEI, A 
Datei loeschen und neu beschreiben? ja 
Kundennummer, Name, Umsatz (O=Ende)? 

? 104, MAUCHER, 295.6 

Kundennummer, Name, Umsatz (O=Ende)? 

? 101, FREI, 6500 

Kundennummer, Name, Umsatz (O=Ende)? 

? 110, AMANN, 1018.75 

Kundennummer, Name, Umsatz (O=Ende)? 

? 109, HILDEBRANDT, 4590.05 

Kundennummer, Name, Umsatz (O=Ende)? 

? 0,0,0 

Ende des Schreibens. 


RUN LOAD "INDSEQ-L" 
Index-sequentiell lesen. 

Kundendatei: Name, Laufwerk? KUNDATEI, A 

Indexdatei: Name, Laufwerk? INDDATEI, A 


Nummer: Kundenname: Umsatz: 
104 MAUCHER 295.60 
101 FREI 6500.00 
110 AMANN 1018.75 
109 HILDEBRANDT 4590.05 
RUN LOAD "INDSEQ-T" 


Index nach Kundennummern sortieren. 
Unsortierte Indexdatei: Name, Laufwerk? INDDATEI,A 
Sortierte Indexdatei: Name, Laufwerk? INDS,A 
5 Saetze in Indextabelle I gelesen. 
Indextabelle I aufsteigend sortiert. 


Als sortierte Indexdatei gespeichert: 
Schluesselfeld (KundNr.): Adressfeld (SatzNr): 


0 5 
101 3 
104 2 
109 5 
110 4 


Ende. 
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Im Anschluß an Programm INDSEQ-S wird Programm INDSEQ-L zur 
Ausführung gebracht: Der Reihe nach -sequentiell- wird der je- 
weils nächste Indexsatz gelesen und sodann über die Satznum- 
mer auf den Datensatz der Kundendatei zugegriffen. Genau den- 
selben Ausdruck hätten wir erhalten, wenn die Kundendatei rein 
seriell ohne Zugriff über die Indexdatei gelesen worden 
wäre (seriell = lesen wie gespeichert). 

Danach laden wir das Sortierprogramm INDSEQ-T, um den Index in 
den Hauptspeicher zu lesen, dort zu sortieren und dann in eine 
sortierte Indexdatei namens INDS zu schreiben. 

Abschließend wird in einem vierten Schritt erneut das Programm 
INDSEQ-L ausgeführt: Jetzt werden die Kundensätze aufsteigend 
nach der Kundennummer sortiert aufgelistet, da als Indexdatei 
die Datei INDS angegeben wurde. 


Die Ausführung zu den drei Programmen INDSEQ-S, INDSEQ-L sowie 
INDSEQ-T zeigt, daß bei index-sequentieller Organisation zu 
der e in en Kundendatei (zur Unterscheidung auch Datenda- 
tei oder Hauptdatei genannt) mehrere Indexdateien an- 
gelegt werden können. 


3.12.2 Zugriff über unsortierte Indexdatei 


Die unsortierte Indexdatei wird über das Programm INDSEQ-S er- 
stellt. Der Zugriff über diesen Index erfolgt dann durch das 
Programm INDSEQ-L. 


Zunächst zur Codierung des Schreibprogramms INDSEQ-S: 
Mit der Kundendatei wird auch eine Indexdatei eröffnet (Zeilen 
270 bis 300). Beide Dateien werden mit dem Parameter "R" zwar 
als Random-Dateien eröffnet, später aber rein sequentiell be- 
schrieben: 
370 LET S=S+1 Sequentiell den nächsten Satz S 
390 PUT #1, S auf Kunden- wie Indexdatei schreiben. 
410 PUT #2, S 
Wir wählen diese Vorgehensweise, um später die Satzanzahl als 
1. Satz mittels 460 PUT #2,1 speichern zu können. 


Ausführungsbeispiel mit folgender Programmfolge: 

1. Über Programm INDSEQ-S vier Kunden speichern 

2. Über Programm INDSEQ-L die Kunden wie gespeichert lesen 
3. Über Programm INDSEQ-T die Indexdatei sortieren 

4. Über Programm INDSEQ-L die Kunden sortiert lesen 


RUN LOAD "INDSEQ-L" 
Index-sequentiell lesen. 

Kundendatei:; Name, Laufwerk? KUNDATEI, A 

Indexdatei: Name, Laufwerk? INDS, A 


Nummer: Kundennanme: Umsatz: 
101 FREI 6500.00 
104 MAUCHER 295.60 
109 HILDEBRANDT 4590.05 


110 AMANN 1018.75 
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Nach dem Schreiben des nächsten Kundensatzes (K,K$,U) auf die 
Kundendatei (in Zeile 390), wird dessen Kundennummer K und die 
Satznummer S als Indexsatz (K,S) in der Indexdatei abgelegt. 
Nach Beenden der Schreibschleife 360 WHILE..440 WEND wird die 
Satzzahl S als 1. Satz auf die Indexdatei geschrieben (460). 
Im Sortierprogramm INDSEQ-T brauchen wir diesen Wert. 


Nun zur Codierung des Leseprogramms INDSEQ-L: 

Nach dem Eröffnen der Kundendatei sowie der Indexdatei (Zeilen 
190 bis 240) wird der jeweils nächste Indexsatz gelesen (Zeile 
280: sequentieller Zugriff auf die Indexdatei), um sodann über 
die Satznummer S den zugehörigen Kundensatz einzulesen (Zeile 
300: Direktzugriff auf die Kundendatei). 

Der index-sequentielle Dateizugriff erfolgt also stets in zwei 
Stufen: 1. Zugriff sequentiell auf die Indexdatei, 2. Zugriff 
direkt auf die entsprechende Datendatei. 


Codierung zum Leseprogramm INDSEQ-L: 


100 REM ====== Programm INDSEQ-L" 
110 PRINT "Index-sequentiell lesen." 


120 REM ====== Vereinbarungsteil 

130 'F$, FI$: Name der Kundendatei und der zugehoerigen Indexdatei 

140 'L$, LI$: Namen der Laufwerke (A bzw. B) 

150 'K,K$,U: Datensatz der Kundendatei mit den drei Datenfeldern 
Kundennummer (K), Kundenname (K$) und Umsatz (U) 

160 'K,S: Datensatz der Indexdatei mit den zwei Datenfeldern 
K (Schluesselfeld) und Satznummer S (Adressfeld) 

170 "Hinweis: Satzanzahl bzw. -zeiger S als l. Indexsatz gespeichert 


180 REM ====== Anweisungsteil 

190 INPUT "Kundendatei: Name, Laufwerk"; F$,L$ 
200 INPUT "Indexdatei: Name, Laufwerk"; FI$, LI$ 
210 OPEN "R", #1, L$+":"+F$, 20 

220 FIELD #1, 2 AS Pl$, 14 AS P2$, 4 AS P3$ 

230 OPEN "R", #2, LI$+":"+FI$, 4 

240 FIELD #2, 2 AS P4$, 2 AS P5$ 


250 PRINT : PRINT "Nummer: Kundennane; Umsatz:" 

260 ON ERROR GOTO 340 

270 FOR I=2 TO 9999 

280 GET #2, I 

290 LET S=CVI(P5$) 

300 GET #1, S 

310 LET K=CVI(P1$): LET K$=P2$: LET U=CVS(P3$) 

320 PRINT USING "### \ \ HH HE", K,K$,U 
330 NEXT I 


340 CLOSE : END 
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Codierung zum Schreibprogramm INDSEOQ-S: 


100 REM ====== Programm INDSEQ-S 
110 PRINT "Kundendatei index-sequentiell beschreiben." 


120 REM ====== Vereinbarungsteil 

130 'F$, FI$: Name der Kundendatei und der zugehoerigen Indexdatei 

140 'L$, LI$: Namen der Laufwerke (A bzw. B) 

150 'K,K$,U: Variablen mit den 3 Datenfeldern Kundennummer (K), 
Name (K$) und Umsatz (U) des Kundensatzes 

160 'K, S: Variablen mit den 2 Datenfeldern Kundennummer (Schluessel- 
feld) und Satznummer (Adressfeld) des Indexsatzes 

170 "Hinweis: Satzanzahl bzw. -zeiger S als 1. Indexsatz gespeichert 


180 REM ====== Anweisungsteil 

190 INPUT "Kundendatei: Name, Laufwerk"; F$,L$ 

200 INPUT "Indexdatei: Name, Laufwerk"; FI$, LI$ 
210 INPUT "Datei loeschen und neu beschreiben"; E$ 
220 IF LEFT$(E$,1)<>"j" THEN 270 ELSE 230 

230 ON ERROR GOTO 250 

240 KILL L$+":"+F$ : KILL LI$+":"+FI$ 

250 IF ERR>O THEN RESUME 260 

260 LET S=1 "Satzzeiger auf Position 1 stellen 
270 OPEN "R", #1, L$+":"+F$, 20 

280 FIELD #1, 2 AS P1$, 14 AS P2$, 4 AS P3$ 

290 OPEN "R", #2, LI$+":"+FI$, 4 

300 FIELD #2, 2 AS P4$, 2 AS P5$ 

310 IF LEFT$(E$,1)="j" THEN 340 

320 GET #2, 1 

330 LET K=CVI(P4$) : LET S=CVI(P5$) 


340 PRINT "Kundennummer, Name, Umsatz (O=Ende)?" 

350 INPUT K,K$,U 

360 WHILE K<>O 

370 LETS = S+l "naechsten Satz (sequentiell) schreiben 
380 LSET P1$=MKI$(K) : LSET P2$=K$ : LSET P3$=MKS$(U) 
390 PUT #1, S 

400 LSET P4$=Pl$ : LSET P5$=MKI$(S) 

410 PUT #2, S 

420 PRINT "Kundennummer, Name, Umsatz (O=Ende)?" 

430 INPUT K,K$,U 

440 WEND 


450 LSET P4$=MKI$(0) "Satzanzahl als 1. Satz auf Indexdatei 
460 PUT #2, 1 

470 CLOSE 

480 PRINT "Ende des Schreibens." : END 
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Codierung zum Sortierprogramm INDSEQ-T 


100 REM ====== Programm INDSEQ-T 
110 PRINT "Index nach Kundennumnern sortieren." 


120 REM ====== Vereinbarungsteil i 
130 'F1$, F2$: Namen der unsortierten bzw. sortierten Indexdatei 
140 'L1$, L2$: Namen der Diskettenlaufwerke 
150 'P4$, P5$: Indexsatz im Dateipuffer von Fl$ 
160 'P6$, P7$: Indexsatz im Dateipuffer von F2$ 
170 'I(S,2): Zweidimensionaler Array als Intextabelle mit 
S Zeilen bzw. Indexsaetzen sowie 
2 Spalten (l. Kundennummer und 2. Satznummer) 
180 'S: Anzahl der Indexsaetze (im 1. Satz abgelegt) 
190 "SORTIEREN: Hilfsvariable zur Schleifensteuerung 


200 REM ====== Anweisungsteil 

210 INPUT "Unsortierte Indexdatei: Name, Laufwerk"; Fi$, L1$ 
220 OPEN "R", #1, L1$+":"+F1$, 4 

230 FIELD #1, 2 AS PA$, 2 AS P5$ 

240 INPUT "Sortierte Indexdatei: Name, Laufwerk"; F2$, L2$ 
250 OPEN "'R", #2, L2$+":"+F2$, 4 

260 FIELD #2, 2 AS P6$, 2 AS P7$ 


270 GET #1, 1 "Satzanzahl S aus 1. Satz der Datei lesen 
280 LET S=CVI(P5$) 

290 DIM I(S,2) "Indextabelle I dynamisch dimensionieren 
300 FOR Z=1 TO S "Index aus Datei in Tabelle I einlesen 


310 GET #1, 2 

320 LET I(Z,1) = CVI(P4$) : LET I(Z,2) = CVI(P5$) 
330 NEXT Z 

340 PRINT S;" Saetze in Indextabelle I gelesen." 


350 LET SORTIEREN=1 "Indextabelle intern sortieren (Bubble Sort) 
360 WHILE SORTIEREN 

370 FOR Z=2 TO (S-l) 

380 LET SORTIEREN=O 

390 IF I(Z,1)<=I(Z+1,1) THEN 430 ELSE 400 


400 SWAP I(Z,1), I(Z+l,1) 
410 SWAP I(Z,2), I(Z+1,2) 
420 LET SORTIEREN=0 

430 NEXT Z 

440 WEND 


450 PRINT "Indextabelle I aufsteigend sortiert." 


460 PRINT 'Sortierte Indextabelle in Datei schreiben 

470 PRINT "Als sortierte Indexdatei gespeichert:" 

480 PRINT "Schluesselfeld (KundNr.): Adressfeld (SatzNr):" 

490 FOR Z=1 TO S 

500 LSET P6$=MKI$( I(Z,1) ) : LSET P7$=MKI$( I(Z,2) ) 

510 PUT#2, 2 

520 PRINT USING " #4 ##4#"; I(Z,1),I(Z,2) 
530 NEXT Z 

540 CLOSE : PRINT "Ende." : END 
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3.12.3 Zugriff über sortierte Indexdatei 


Das Programm INDSEQ-T erstellt eine sortierte Indexdatei, über 
die dann mit dem Programm INDSEQ-L die Kunden nach Kundennum- 
mern sortiert gelesen werden können. 

zur Codierung von Programm INDSEQ-T: 

Zuerst wird die gesamte externe Indexdatei in eine interne In- 
dextabelle namens I( ,„ ) eingelesen (FOR-Schleife in Zeilen 
300-330. 

Dann sortieren wir die Tabelle intern nach dem Sortierverfah- 
ren 'Bubble Sort' (vgl. Abschnitt 3.9.3) nach Kundennummern in 
aufsteigender Folge (350-450). 

Im Anschluß daran legen wir die Indextabelle I in einer Index- 
datei namens INDS auf Diskette ab (ab 460). 

Wie das Ausführungsbeispiel zu Programm INDSEQ-L zeigt, erhält 
man jetzt beim Lesen über diese Indexdatei INDS eine Kunden- 
liste, die nach Kundennummern aufsteigend sortiert ist. 


3.12.4 Primärindexdatei und Sekundärindexdateien 


Wie zur Kundennummer können wir auch zum Kundennamen und zum 
Kundenumsatz zusätzliche sortierte Indexdateien erstellen, um 
über diese Indices dann die entsprechenden Drucklisten zu be- 
kommen. Man bezeichnet diese Indexdateien als Sekundärindexda- 
teien. Für eine Kundendatei mit 15 Datenfeldern je Satz können 
wir eine Primärindexdatei (Ordnungsbegriff z.B. Kundennummer) 
und maximal 14 Sekundärindexdateien erstellen. In jedem Falle 
legt man nur zu solchen Datenfeldern Sekundärindices an, für 
die man sortierte Drucklisten benötigt. Eine große Schwierig- 
keit besteht darin, daß der Änderungsdienst neben der Datenda- 
tei selbst immer auch die Indexdatei(en) berücksichtigen muß. 
Der große Vorteil der index-sequentiellen Datei besteht darin, 
daß direkt auf einen Satz sowie sequentiell 
auf eine Satzfolge zugegriffen werden kann. 


268 


3 


Programmierkurs 
mit Schneider 
BASIC und MBASIC 


Dos 


187 
201 


3.12 Index-sequentielle Datei (Kundendatei) 


3.13 Verkettete Dateien 


3.14 Gekettete Liste als Linked List (Namensdatei) 


3.15 Binärer Baum (Nummerndatei) 


270 


3.13 Verkettete Dateien 271 


Nach der sequentiellen Datei, der Direktzugriff-Datei und der 
index-sequentiellen Datei kommen wir jetzt zur vierten Orga- 
nisationsform, der verkettet en Datei. Dabei können 
die Datensätze innerhalb einer Datei verkettet sein oder aber 
es sind mehrere Dateien untereinander verkettet. 


3.13.1 Verkettung von Datensätzen innerhalb einer Datei 


Das Prinzip der verketteten Speicherung über Zeiger haben wir 
schon in Abschnitt 1.3.5.2 kennengelernt. Dabei wurden inner- 
halb einer Kundendatei in jedem Datensatz zwei zusätzliche Da- 
tenfelder mit Zeigern (sog. Zeigerfelder) angefügt. 
Strukturiert man die Datensätze als "Gekettete Liste (Linked 
List)', dann werden damit ebenfalls Sätze innerhalb einer Da- 
tei verkettet. Auf die Datenstruktur der geketteten Liste wer- 
den wir in Abschnitt 3.14 eingehen. 


3.13.2 Verkettete Dateien am Beispiel der Fakturierung 


Das Prinzip der Verkettung läßt sich auch auf mehrere Dateien 
anwenden: der Schlüssel des Datenfeldes einer Datei A wird als 
Zeiger auf den Satz einer Datei B betrachtet. Die Verzeigerung 
von Dateien wollen wir an einem Beispiel zur Fakturierung dar- 
stellen. 


Die Tagesbestellungen werden in einer BESTELLDATEI erfaßt, ge- 
sammelt bzw. gestapelt, um z.B. abends zur Rechnungsschreibung 
verwendet zu werden. Jeder Bestellsatz umfaßt u.a. die Daten- 
felder KUNDNR, ARTNR, ANZAHL des bestellten Artikels und DATUM 
(vereinfachende Annahme: nur ein Artikel/Bestellung). Das Feld 
KUNDNR wird als Ze i ge r auf die KUNDENDATEI aufgefaßt; 
dieser Zeiger bewirkt, daß die entsprechenden Kundenstammdaten 
verfügbar sind. Die ARTNR als Zeiger dient zur Verkettung der 
ARTIKELDATEI: die zugehörigen Artikelangaben können jetzt auf 
die Rechnung gedruckt werden. Die KUNDNR verkettet nicht nur 
mit der KUNDENDATEI, sondern auch mit der OFFENE-POSTEN-DATEI 
bzw. OPOS-DATEI. Damit kann man nachsehen, ob. noch offene und 
angemahnte Rechnungen vorliegen, um z.B. bei "MAHNSTUFE>2" be- 
sondere Zahlungsbedingungen auf der Rechnung zu vermerken. 
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VERKETTUNG INNERHALB EINER DATEI: 
Beispiele: 1) Kundendatei in Abschnitt 1.3.5.2. 
2) Datensätze sortiert ausgeben anhand einer ge- 
ketteten Liste (Linked List) in Abschnitt 3.14 


VERKETTUNG MEHRERER DATEIEN: 
Beispiel: Fakturierung mit Bestelldatei, Kundendatei, 
Artikeldatei und Offene-Posten-Datei. 


Bestellsatz 


Kundensatz 


Artikelsatz 


OPOS-Satz 


(Pfeile stellen Zeiger dar) 


Verkettung von vier Dateien am Beispiel der Fakturierung 


3.13.3 Literaturdokumentation mit verketteten Dateien 


Wenden wir uns dem weiten Gebiet der Literaturdokumentation 
am Beispiel der Verwaltung von Büchern zu: Zunächst legen wir 
eine BUCHDATEI mit fester Datensatzlänge an. Jeder Satz weist 
Datenfelder wie Buchtitel, Verlag, ... auf und zusätzlich ein 
Zeigerfeld, dessen Inhalt (Zeiger, Pointer) auf den logischer- 
weise nachfolgenden Datensatz zeigt. Diese BUCHDATEI wird zu- 
nächst mit 10 Leersätzen (siehe Beispiel) als Direktzugriffda- 
dei angeleg.. 

In einer zweiten AUTORENDATEI speichern wir die Namen von Ver- 
fassern, wobei jeder Satz zwei zusätzliche Zeigerfelder mit 
Verweisen auf die BUCHDATEI hat: Zeiger 21 zeigt auf die erste 
vom betreffenden Autor in der BUCHDATEI besetzte Satznummer, 
und Zeiger 22 auf den letzten besetzten Satz. 

Das wiedergegebene Beispiel zeigt den Inhalt dieser verkette- 
ten Dateien zu Beginn leer (Zustand (A)), mit 3 Büchern von 2 
Autoren (Zustand (B)) und mit 4 Büchern von 2 Autoren (Zustand 
(C)). 
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Zu Zustand (A): Die BUCHDATEI ist leer angelegt. Im Datensatz 
0 ist mit SO=1 die erste freie Satznummer sowie mit S1=10 die 
letzte freie Satznr. vermerkt. Die Zeiger Z zeigen von Satz 1 
bis Satz 10 (O=Kettenende) und bilden e i ne vVollkette. Die 
AUTORENDATEI ist ebenfalls leer, für die beiden Zeiger 21 und 
22 werden keine Leerketten aufgebaut, sondern es ist jeweils 0 
eingetragen. 

Zu Zustand (B): Für Autor JANOSCH werden die beiden Buchtitel 
GEBURTSTAG und HAU DEN LUKAS eingetragen. In Satz 0 der BUCH- 
DATEI zeigt SO=4 nun auf den 4. Satz als ersten freien Satz, 
da der Titel VATER U. SOHN von Autor PLAUEN als 3. Satz einge- 
tragen ist. Die BUCHDATEI enthält drei Teilketten: Sätze 1-2 
für JANOSCH, Satz 3 für PLAUEN sowie Sätze 4-10 leer. Satzende 
wird jeweils durch Zeigerwert=null vermerkt, Satzanfang entwe- 
der durch Zeiger Z1 aus der AUTORENDATEI oder durch Zeiger 2 
aus Satz 0 der BUCHDATEI selbst. 

Zu Zustand (C): Zusätzlich wird das Buch GLIWI von JANOSCH ge- 
speichert, und zwar als nächster freier Satz, d.h. als 4. Satz 
in der BUCHDATEI. Andere Sätze werden n i c h t bewegt, son- 
dern es werden nur Zeiger geändert. SO wird von 4 auf 5 erhöht, 
zZ im 2. Buchsatz von 0 auf 4 gesetzt. In der AUTORENDATEI wird 
22 für JANOSCH von 2 auf 4 geändert. 


Auch andere Arten des Änderungsdienstes (Löschen, Titeländern) 
werden ohne Bewegung der Sätze allein über Zeigervermerke ver- 
arbeitet. 


BUCHDATEI: 
(A) Leer: (B) 3 Bücher: (C) 4 Bücher: 
Dir 10 04 10 0545 10 
1 leer 2 De GEBURTSTAG 27 | GEBURTSTAG EEE 
2 leer 3 2 HAU DEN LUKAS 0 2 HAU DEN LUKAS 4 
3 leer a | 3 VATER U. SOHN 0 (3 VATER u. Sonn 0 | 
4 leer a ET ER -T =} 5 4 GLIWI 0 
5 leer 6 | 5 leer 6 5 leer 6 
6 leer 7 6 leer 7 6 leer 7 
7 leer 8 | 7 leer 8 7 leder 8 
8 leer gel Br leer 9 8 leer 9 
9 leer 101 9 leer 10 9 leer 10 
10 leer 0,10 leer 0 10 leer 0 
Eine Kette: N Drei Ketten: Drei Ketten: 
1-10. 1-2, 3-3, 4-10. 1-2+4, 3-3, 5-10. 
| 
AUTORENDATEI: I 
(A) Leer: | (B) 2 Autoren: (C) 2 Autoren: 
Der er Se ee er - 
ar 5 02 5 1 ar 5 
1 leer 07,0 1 JANOSCH 1 2 1 JANOSCH 1 4 
2 leer DER 2 PLAUEN 3 3 2 PLAUEN 3 3 
3 leer a, 3 leer RU 3 leer 00 
4 leer 0 4 leer Ba, 4 leer 0 8 
5 leer 0.0 5 leer TR) 5 leer 0.°:0 


Verkettung von AUTORENDATEI zu BUCHDATEI sowie in BUCHDATEI 
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Das Beispiel verdeutlicht, daß oft beide Arten der Verkettung 
gleichzeitig vorhanden sind: die Verkettung von Sätzen inner- 
halb einer Datei (hier in der BUCHDATEI) sowie die Verkettung 
zwischen Dateien (hier von der AUTORENDATEI zur BUCHDATEI). 


Die Verkettung von Dateien über Zeiger als eigens hierfür vor- 
gesehene Datenfelder bringt besondere Probleme bei der Reorga- 
nisation der einzelnen Datei (z.B. Löschen eines Datensatzes, 
auf den von einer anderen Datei aus weiterhin mit einem Zeiger 
verwiesen wird). 

Je mehr Dateien man in einem Datenverwaltungssystem verkettet 
(vgl. Abschnitt 1.3.5.5), um so dringlicher wird die Frage der 
Einrichtung einer Datenbank (vgl. Abschnitt 1.3.5.6). 
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Auf Daten einer Datei muß schnell zugegriffen werden können. 
Geht man rein sequentiell bzw. seriell vor, so geht es zumeist 
sehr langsam. Verfährt man gemäß dem "Binären Suchen' (vgl. 
Abschnitt 3.9.2), so setzt dies sortierte Daten voraus. Außer- 
dem ist stets von neuem zu sortieren, wenn Daten hinzugefügt 
werden. Anders formuliert: die Daten müssen hin- und herbewegt 
werden. 

Mt der geketteten List e (Linked List) sowie 
dem binären Ba um stehen zwei Datenstrukturen zur 
Verfügung, bei denen neue Daten einfach hinten angehängt wer- 
den können, ohne den Gesamtdatenbestand wiederholt bewegen zu 
müssen. 


Wenden wir uns zunächst der geketteten Liste 
bzw. Linked List (to link = verbinden, ketten) als dynamischer 
Datenstruktur (vgl. Abschnitt 1.3.2.3) zu. Das Programm namens 
LILIST-M demonstriert, wie die Liste zur Verkettung von Daten- 
sätzen einer Namendatei verwendet wird. Zu jedem Namen wird 
je ein Zeiger auf seinen Vorgänger (Vater) wie auch auf seinen 
Nachfolger (Sohn) gespeichert. 


3.14.1 Darstellung einer geketteten Liste 


Stellen wir uns die "Artikeldatei' eines etwas südlich gelege- 
nen Obstbauern vor und lassen wir alle Datenfelder bis auf den 
Obstnamen als Ordnungsbegriff weg, dann reduziert sich der Da- 
tensatz zur Namensangabe. Sind die sechs Namen BIRNE, KIRSCHE, 
PFIRSICH, MIRABELLE, APFEL und PFLAUME in eine aufsteigende 
Sortierfolge zu bringen, dann kann dies dadurch geschehen, daß 
man die Sätze tatsächlich (physisch) umspeichert durch ein be- 
stimmtes Sortierverfahren (vgl. Abschnitt 3.9.3). Wir wollen 
die physische Speicherungsfolge aber behalten und dafür eine 
logische Speicherungsfolge über ein Zeigerfeld aufbauen. 


Jeder einzelne Datensatz der Namendatei besteht demzufolge aus 
einem Namensfeld und einem Zeigerfeld. Eine aus diesen beiden 
Komponenten bestehende Datenstruktur nennt man "lineare geket- 
tete Liste ', da man sie sich als Linie auflisten kann. 


L$()=Listenelemente (Namen) A=5 E=6 
Z2() =Listenzeiger (nächster Name) Anfang Ende 


Graph einer linearen geketteten Liste mit 6 Elementen 
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Zur internen Speicherung der Namendatei: Im Speicher RAM legen 
wir die Namen in einem Vektor L$() und die Zeiger in einem Vek- 
tor Z() ab. In der Variablen A speichern wir den Anfangsindex 


Tätigkeit: Erle): ZU SER: 


Leere Liste mit Menüwahl 1: blanc 0 0 0 
1. Namen vorne anfügen: BIRNE 0 1 1 


2. Namen hinten einfügen: BIRNE 
KIRSCHE 


2 
0 
3. Namen hinten anhängen: BIRNE 2 
KIRSCHE 3 
PFIRSICH 0 
4. Namen dazwischen einfügen: BIRNE 
KIRSCHE 
PFIRSICH 
MIRABELLE 


WOoeBnam 


5. Namen vorne anfügen: BIRNE 
KIRSCHE 
PFIRSICH 
MIRABELLE 
APFEL 


= =woe%nN 


6. Namen hinten anhängen: BIRNE 
KIRSCHE 
PFIRSICH 
MIRABELLE 
APFEL 
PFLAUME 5) 6 

L()=Listenelement Z2()=Listenzeiger A=Anfang E=Ende 


oO-WONPMN 


Aufbau einer geketteten Liste an einem 6-Schritt-Beispiel 


der Liste und in E den Endeindex. Die Übersicht zeigt, welche 
Inhalte diese zur Darstellung der geketteten linearen Liste in 
BASIC erforderlichen vier Variablen L$(), Z(), A, E annehmen, 
wenn wir das Programm LILIST-M, wie im Ausführungsbeispiel wie- 
dergegeben, laufen lassen. 
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3.14.2 Erzeugen einer leeren Liste 


Die Codierung zu Programm LILIST-M zeigt uns einen menügesteu- 
erten Ablauf, der bewußt einfach gehalten wurde. 

Unterprogramm 1000 erzeugt eine leere Liste: Anfang A und Ende 
E der Liste werden auf 0 gesetzt und je hundert Listenelemente 
L$() und Listenzeiger Z() dimensioniert. 


Codierung zu Programm LILIST-M: 


100 REM ====== LILIST-M 
110 PRINT "Demonstration: Gekettete Liste (Linked" 
120 PRINT "List) als dynamische Datenstruktur." : PRINT 


121 : 

130 REM ====== Vereinbarungsteil 

140 'L$(100): Maximal 100 Elemente der linearen geketteten Liste 
150 'Z(100): Maximal 100 Zeiger der linearen geketteten Liste 
160 'A, E: Zeiger "Anfang der Liste" und "Ende der Liste" 
170 'H: Hilfszeiger 

180 'I: Laufvariable, Listenzeiger 

190 'F$: Dateiname zur externen Speicherung der Liste 

200 'L$(I): Datensatz mit zwei Datenfeldern "Listenelement" 
210 'Z(I): und "Listenzeiger" 

220 'W, E$: Hilfsvariablen fuer die Eingabe 

221 : 

230 REM ====== Anweisungsteil 


240 PRINT "1 Leere Liste erzeugen" 

250 PRINT "2 Neue Elemente eingeben" 

260 PRINT "3 Liste logisch ausgeben" 

270 PRINT "4 Liste physisch ausgeben" 

280 PRINT "5 Datei mit Liste laden" 

290 PRINT "6 Liste in Datei speichern" 

300 INPUT "Ihre Wahl (O=Ende)"; W 

310 IF W=O THEN PRINT "Ende." : END 

320 ON W GOSUB 1000, 2000, 4000, 5000, 6000, 7000 
330 PRINT : PRINT "Weiter mit RETURN"; : INPUT E$ 


340 CLS 

350 GOTO 240 

360 : 

1000 LET A=0 "Anfang der Liste IM INTERNSPEICHER 
1010 LET H=0 "Hilfszeiger LEERE LISTE ERZEUGEN 


1020 LET I-0 "Listenzeiger zwischen A und H als Laufvariable 

1030 IF E<>O THEN ERASE L$,Z "Arrays loeschen zum Redimensionieren 
1040 LET E-0_ "Ende der Liste 

1050 DIM L$(100) 'Liste mit den Listenelementen selbst 

1060 DIM Z(100) "Zeiger auf L$() 

1070 PRINT "Liste leer dimensioniert." 

1080 RETURN 

1090 : 

2000 INPUT "Neues Element (O=Ende)";E$ 'NEUE LISTENELEMENTE EINGEBEN 
2010 WHILE E$<>"'0" 

2020 LET E=Etl 

2030 LET L$(E)=E$ 


2040 GOSUB 3000 'E$ einordnen 
2050 INPUT "Neues Element (O=Ende)";E$ 
2060 WEND 


2070 RETURN 
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Codierung zu LILIST-M (1. Fortsetzung): 


LET I=A "ELEMENT SORTIERT EINORDNEN 
IF E$<=L$(I) OR I=0 THEN 3050 
LET H=I 
LET I=Z(I) 
GOTO 3010 
IF I<>A THEN 3060 ELSE 3070 
LET Z(E)=I : LET Z(H)=E : GOTO 3080 
LET Z(E)=A : LET A=E 
RETURN 


LET I=A 'LISTE IN SORTIERFOLGE AUSGEBEN 
WHILE I<>O 
PRINT L$(I) 
LET I=Z(I) 
WEND 
RETURN 


FOR I=1 TO E "LISTE IN SPEICHERFOLGE AUSGEBEN 
PRINT L$(I); TAB(10); ZCI) 

NEXT I 

RETURN 


GOSUB 1000 "Leere Liste. LISTE IN INTERNSPEICHER LADEN 
INPUT "Von welcher Datei laden";F$ 
OPENIN F$+".DAT" 
INPUT #9, A,E 
FOR I=1 TO E 
INPUT #9, L$(I),Z(I) 
NEXT I 
CLOSEIN 
PRINT "Liste aus ";F$;" in den Hauptspeicher geladen." 
RETURN 


INPUT "Dateiname";F$ : "LISTE EXTERN SPEICHERN 
OPENOUT F$+".DAT" 
PRINT #9, A;","sE 
FOR I=1 TO E 
PRINT #9, L$(I);",";Z(I) 
NEXT I 
CLOSEOUT 
PRINT "Liste auf Diskette in der Datei ";F$;" gespeichert." 
RETURN 
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Ausführung zu Programm LILIST-M: 


Demonstration: Gekettete Liste (Linked 


List) 


suruve 


als dynamische Datenstruktur. 


Leere Liste erzeugen 
Neue Elemente eingeben 
Liste logisch ausgeben 
Liste physisch ausgeben 
Datei mit Liste laden 
Liste in Datei speichern 


Ihre Wahl (O=Ende)? 1 


Liste 


leer dimensioniert. 


Weiter mit RETURN 


surwve 


Leere Liste erzeugen 
Neue Elemente eingeben 
Liste logisch ausgeben 
Liste physisch ausgeben 
Datei mit Liste laden 
Liste in Datei speichern 


Ihre Wahl (O=Ende)? 2 


Neues 
Neues 
Neues 
Neues 
Neues 
Neues 
Neues 


Element (O=Ende)? BIRNE 
Element (O=Ende)? KIRSCHE 
Element (O=Ende)? PFIRSICH 
Element (O=Ende)? MIRABELLE 
Element (O=Ende)? APFEL 
Element (O=Ende)? PFLAUME 
Element (O=Ende)? O 


Weiter mit RETURN 

l Leere Liste erzeugen 

2 Neue Elemente eingeben 

3 Liste logisch ausgeben 

4 Liste physisch ausgeben 
5 Datei mit Liste laden 

6 Liste in Datei speichern 
Ihre Wahl (O=Ende)? 3 


MIRABELLE 
PFIRSICH 
PFLAUME 


Weiter mit RETURN 


Fortsetzung siehe nächste Seite. 
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Ausführung zu Programm LILIST-M (Fortsetzung): 


l Leere Liste erzeugen 

2 Neue Elemente eingeben 
3 Liste logisch ausgeben 
4 Liste physisch ausgeben 
5 Datei mit Liste laden 

6 Liste in Datei speichern 
Ihre Wahl (O=Ende)? 4 

BIRNE 2 

KIRSCHE 4 

PFIRSICH 6 

MIRABELLE 3 

APFEL 1 

PFLAUME O0 


Weiter mit RETURN 


l Leere Liste erzeugen 

2 Neue Elemente eingeben 

3 Liste logisch ausgeben 

4 Liste physisch ausgeben 

5 Datei mit Liste laden 

6 Liste in Datei speichern 
Ihre Wahl (O=Ende)? 6 
Dateiname? NAMDATEI 

Liste auf NAMDATEI gespeichert. 


Weiter mit RETURN 

l Leere Liste erzeugen 

2 Neue Elemente eingeben 

3 Liste logisch ausgeben 

4 Liste physisch ausgeben 
5 Datei mit Liste laden 

6 Liste in Datei speichern 
Ihre Wahl (O=Ende)? O 

Ende, 


3.14.3 Eingeben eines neuen Listenelements 


Das Unterprogramm 2000 von Programm LILIST-M enthält zwei Tei- 
le: 

Zunächst wird die Liste verlängert (LET E=E+1) und das zusätz- 
lich eingegebene Listenelement E$ am Ende der Liste angefügt 
(LET L$(E)=E$). Dies ist ein sequentieller Schreibvorgang. 
Dann werden die Listenzeiger gemäß der Sortierfolge neu ein- 
geordnet. Dabei unterscheiden wir, ob das neue Element vorne 
an die 1. Position angefügt wird (LET A=E) oder aber an einer 
anderen Position. 
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3.14.4 Liste in Sortierfolge oder Speicherfolge ausgeben 


In Sortierfolge ausgeben heißt, daß die Listenelemente in L$() 
in der logischen Ordnung gezeigt werden, wie sie über die Zei- 
ger vorgegeben ist. In Unterprogramm 4000 beginnt die Laufva- 
riable I mit Anfangsindex A, um nach jeder Ausgabe PRINT L$(I) 
durch die Anweisung 4030 LET I=2(I) der Laufvariablen I den 
Wert des aktuellen Zeigerfeldes zuzuweisen, der ja auf den als 
Nachfolger auszugebenden Namen zeigt. 


Die Sortierfolge ist eine rein logische Ordnung, da die Namen 
in der Speicherfolge als physischer Ordnung durcheinander und 
unsortiert in L$() abgelegt sind. 

Die Ausgabe der Namen in der Speicherfolge erfolgt einfach mit 
der Zählerschleife 5000 FOR I=1 TO E vom 1. bis zum letzten 
bzw. E. Listenelement. 


3.14.5 Gekettete Liste als Datei extern ablegen 


Über Unterprogramm 7000 wird die in den beiden Arrays L$() und 
Z() intern dargestellte Liste in eine Datei mit Namen NAMDATEI 
geschrieben. Dabei wird der erste Satz der Datei wie üblich 
für besondere Werte reserviert: für den Listenanfang A und für 
das Listenende E (Zeile 7020). 

Die NAMDATEI selbst ist als sequentielle Datei organisiert. 


Das Unterprogramm 6000 liest die gesamte Namendatei dann wie- 
der in den Hauptspeicher ein, wobei vor dem Lesevorgang zuerst 
eine leere Liste erzeugt wird (Zeile 6000). 

Wie diese beiden Unterprogramme zeigen, wird in unserem Demon- 
strationsprogramm LILIST-M zur geketteten Liste der dateiweise 
Datenverkehr praktiziert. 


Auf einige Listenoperationen geht Programm 
LILIST-M nicht ein. Wir wollen sie als Schrittfolge erklären: 
- Ein Listenelement suchen (z.B. MIRABELLE): 
(1) LET I=A Mit Angfangsindex A beginnen. 
(2) Mit I die Listenelemente entlanggehen, bis L$(I)=0 
ist (nicht gefunden) oder L$(I)=SUCH$ ist (gefunden). 


- Ein Listenelement ändern (z.B. MIRABELLE in MIRABELLEI): 
(1) wie beim Suchen oben. 
(2) Inhaltsänderung vornehmen. 


- Ein Listenelement ändern (z.B. MIRABELLE in GUTEMIRABELLE): 
Entsprechend dem Einfügen eines neuen Elements. 


- Ein Listenelement löschen: 
(1) LET H=LOESCH Position des zu löschenden Namens. 
(2) LET I=H-1 Mit Zeiger I um 1 zurückgehen. 
(3) LET Z(I)=2(H) Z(I) zeigt auf Nachfolger des zu 
löschenden Elements. Damit wird L$(H) "frei'. 
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- Zeiger I auf Listenanfang positionieren: 


LET I=A 
- Zeiger I auf Listenende positionieren: 
LET I=E 
- Zeiger I auf das Nachfolger-Element positionieren: 
LET I=2Z(I) Zeigerwert wird zum Index. 
- Zeiger I auf das Vorgänger-Element positionieren: 
(1) LET H=I Position merken. 
(2) LET I=A I auf Listenanfang A setzen. 
(3) IF Z(I)=H THEN ... zeigt I auf Vorgänger. 
(4) LET I=2Z(I) Logisch nächstes Listenelement. 
(5) GOTO (3) Wiederholung mit Schritt (3). 


Gerade das Zurücksetzen des Zeigers auf das Vorgänger-Element 
ist umständlich, weil hierbei nicht der physische, sondern der 
logische Vorgänger zu suchen ist. 
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Wie die im vorhergehenden Abschnitt dargestellte zeigerverket- 
tete Liste (Linked List) gehört auch der Binärbaum 
zu den dynamischen Datenstrukturen (vgl. Abschnitt 1.3.2.3). 


Baum-Darstellung in BASIC als Arrays: 


B$() = Baum-Elemente selbst 0 
L() = Linke Nachfolger/Söhne —— === - 
R(I) = Rechte Nachfolger/Söhne CHR$ (126) 
I = Index als Knotennummer I |U+--2------- 
0. Knoten zum Start 1 N=8 
11 
ME421000 
3 RR 
I=3 I=2 
ee: ER ERER 
HA093320 NA421030 
5 6 0 ER 
I=5 I=6 Dr 
BO221140 KEO14120 SI120310 
0 7 [0] 0 8 0 
I) I=8 
BO221141 PLO081040 
0 0 0 0 


8 Artikelnummern als Binärbaum mit 8 Knoten strukturiert 


Der Binärbaum unterscheidet sich von der verketteten Liste nur 
dadurch, daß jedes Baumelement (Knoten = node) stets zwei 
Zeiger hat: einen linken und einen rechten Nachfolger-Zeiger. 
Es gibt viele Arten von Bäumen. Wir gehen nur auf binäre Bäume 
in ihrer einfachsten Ausprägung ein. 


3.15.1 Graphische Darstellung eines Binärbaumes 


Wie das Beispiel eines 8-Knoten-Baumes zeigt, zeichnet man den 
Binärbaum zumeist auf dem Kopf stehend, also mit dem Baumstamm 
bzw. der Wurzel (root) nach oben. Der Wurzelknoten ME421000 
hat zwei Zeiger 3 und 2, die auf den linken (Knoten 3) und den 
rechten Nachfolger (Knoten 2) verweisen. Oder anders: die Zei- 
ger weisen auf weitere Bäume, auf einen linken Teilbaum sowie 
einen rechten Teilbaum. Ein Zeigerwert 0 bedeutet "kein Nach- 
folger'. Dabei sind Nachfolger Söhne und Vorgänger Väter. 

Die Abbildung zeigt, daß man sich einen binären Baum grafisch 
als Stammbaum vorstellen kann. 
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3.15.2 Darstellung eines Binärbaumes in BASIC 


Wie die meisten BASIC-Versionen sieht das CPC-BASIC für binäre 
Bäume und Zeiger keine besonderen Sprachelemente vor. 
Aus diesem Grunde müssen wir die Datenstruktur 'Binärbaum' ab- 
strakt z.B. mit der Datenstruktur 'Array' darstellen. Für jeden 
Baumknoten brauchen wir mindestens vier Einträge: 

Element, Vorgänger, linker und rechter Nachfolger. 
In BASIC verwenden wir zur Binärbaum-Darstellung die Arrays 
B$(I) für Elemente, L(I) für linke Nachfolger, R(I) für rechte 
Nachfolger. Der Index I verweist auf die (physischen) Vorgäng- 
er. Intern im Hauptspeicher legen wir den Binärbaum in drei 
Arrays ab. Extern speichern wir den Binärbaum als sequentielle 
NUMDATEI in acht Sätzen mit den je drei Datenfeldern Element, 
linker Sohn und rechter Sohn. 


BINARBAUM IM INTERNSPEICHER: BINÄRBAUM IM EXTERNSPEICHER: 
Te 2B8(#) Ta) ORIG) Datei NUMDATEI als 
------------------ - - -- sequentielle Datei mit der 
O2 FECHRS(T26) 77 8=-Anzahl N Speicherungsfolge 

1 ME421000 3 2 CHR$(126) 1 8 / 1 ME421000 
2 NA421030 0 4 SEA /DDENAA2N0S 0A 
3 HA093320 5 6 

45 2ST1.203102 78 [0) Anmerkung zu Satz 0: 

54.2 B02271,174102 20 7. CHR$(126) als großer Wert, 
6 KEO14120 0 0) L(0)=1 deutet auf Wurzel, 
TIEEBO2ZENANEO 0 R(0)=8 speichert Anzahl der 
8 PLO81040 0 0 Knoten des Baumes, 


Binärbaum mittels Arrays (intern) und als Datei (extern) 


3.15.3 Erzeugen eines leeren Binärbaumes 


Das Programm BIBAUM-M demonstriert einen binären Baum in der 
Sprache BASIC. 

Dieser binäre Baum könnte folgenden Zweck erfüllen: Ein Unter- 
nehmen führt klassifizierende Artikelnummern (vgl. Abschnitt 
3.11.5); dabei steht BO221140 für BOHRER, Lagerort 22, Lie- 
ferantennummer 114. BO221141 ist in den Stellen 1-7 gleich und 
hat deshalb eine 1 in Stelle 8. Diese Artikelnummern als Ord- 
nungsbegriff einer Indexdatei sollen nun als Binärbaum struk- 
turiert werden, damit wir schnell zugreifen können und bei Än- 
derungen nicht sämtliche Nummern bewegen müssen. 
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Ausführung zu Programm 
BIBAUM-M: 


Demonstration: Binaerer Baum 


O Ende O0 Ende 
l Leeren Binaerbaum erzeugen l Leeren Binaerbaum erzeugen 
2 Neue Elemente eingeben 2 Neue Elemente eingeben 
3 Baum sortiert ausgeben 3 Baum sortiert ausgeben 
4 Baum unsortiert ausgeben 4 Baum unsortiert ausgeben 
5 Datei mit Baum laden 5 Datei mit Baum laden 
6 Baum in Datei speichern 6 Baum in Datei speichern 
Wahl 0-6? 1 Wahl 0-6? 3 
Baum leer eingerichtet. Links; Sucharray J,S(J) 
Rechts: Knoten Z,B$(I) 
Weiter mit RETURN ı 1 
O Ende 2 3 
l Leeren Binaerbaum erzeugen 1 . Element: BO221140 
2 Neue Elemente eingeben 35 
3 Baum sortiert ausgeben 2 . Element: BO221141 
4 Baum unsortiert ausgeben 2:3 
5 Datei mit Baum laden 1. 4 
6 Baum in Datei speichern 3 . Element: HA093320 
Wahl 0-6? 2 2 3 
4 .„ Element: KEO14120 
1 . Element (O=Ende) ? ME421000 11 
2 . Element (O=Ende) ? NA421030 00 
3 . Element (O=Ende) ? HA093320 5 „ Element: ME421000 
4 .„ Element (O=Ende) ? SI120310 1. 1 
5 . Element (O=Ende) ? BO221140 6 . Element: NA421030 
6 . Element (O=Ende) ? KEO14120 2 2 
7 . Element (O=Ende) ? BO221141 34 
8 . Element (O=Ende) ? PLO81040 7 .„ Element: PLO81040 
9 „ Element (O=Ende) ? 0 2 2 
8 . Element: SI120310 
Weiter mit RETURN Ende des Sortierens. 


O Ende 

l Leeren Binaerbaum erzeugen 
2 Neue Elemente eingeben 

3 Baum sortiert ausgeben 

4 Baum unsortiert ausgeben 

5 Datei mit Baum laden 

6 Baum in Datei speichern 

W 


ahl 0-6? 4 
RCI),B$CRCI)) 

Reihenfolge: I,B$(I),L(I),B$(L(I)), 
1 ME421000 3 HA093320 2 NA421030 
2 NA421030 0 ß 4 SI120310 

3 HA093320 5 BO221140 6 KEO1Ü4120 
4 SI120310 8 PLO81040 0 B 

5 BO221140 0 ß 7 BO221141 

6 KEO14120 0 BO ß 

7 BO221141 0 BO B 

8 PLO81040 0 BO ß 


Ende der unsortierten Ausgabe. 


Weiter mit RETURN 
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Ausführung zu NUMMERN-BINAERBAUM 


Weiter mit RETURN (1. 


Ende 

Leeren Binaerbaum erzeugen 
Neue Elemente eingeben 
Baum sortiert ausgeben 
Baum unsortiert ausgeben 
Datei mit Baum laden 

Baum in Datei speichern 
Wahl 0-6? 6 


vu Pwvm-Oo 


Dateiname zum Speichern? NUMDATEI 
Binaerbaum in NUMDATEI abgelegt. 


Weiter mit RETURN 

O Ende 

l Leeren Binaerbaum erzeugen 
2 Neue Elemente eingeben 

3 Baum sortiert ausgeben 

4 Baum unsortiert ausgeben 

5 Datei mit Baum laden 

6 Baum in Datei speichern 
Wahl 0-6? 2 


9 .„ Element (O=Ende) ? NA391030 
10 . Element (O=Ende) ? 0 


Weiter mit RETURN 

Ende 

Leeren Binaerbaum erzeugen 
Neue Elemente eingeben 
Baum sortiert ausgeben 
Baum unsortiert ausgeben 
Datei mit Baum laden 

Baum in Datei speichern 
Wahl 0-6? 4 


surwv-eOo 


Reihenfolge: I 

ME421000 3 HA093320 2 NA421030 
NA421030 9 NA391030 4 SI120310 
HAO93320 5 BO221140 6 KEO14120 
SI120310 8 PLO81040 0 Bß 
BO221140 0 ß 7 BO221141 
KEO14120 O0 
BO221141 O0 
PLO81040 O 
NA391030 O 
Ende der unsortier 


vosoautruuvre 

oo 
aoooo 

oo» 


en Ausgabe. 


Weiter mit RETURN 

0O Ende 

l Leeren Binaerbaum erzeugen 
2 Neue Elemente eingeben 

3 Baum sortiert ausgeben 

4 Baum unsortiert ausgeben 

5 Datei mit Baum laden 

6 Baum in Datei speichern 
Wahl 0-6? 3 


Fortsetzung): 


Links: Sucharray J,S(J) 
Rechts: Knoten Z,B$(I) 

1 

2 
. Element: BO221140 
3 
. Element: BO221141 
2 
1 
. Element: HA093320 


. Element: KEO14120 


. Element: ME421000 


DB 


. Element: NA391030 


. Element: NA421030 
2 
3 
. Element: PLO81040 


oO- 
DOFTD,SNSNF-OADHFUOHrHr PP OVrUNDUrRDHM 


2 
9 „ Element: SI120310 
Ende des Sortierens. 


»B$CI),LCI),B$(LCI)),RCI),B$CRCI)) 


Weiter mit RETURN 

Ende 

Leeren Binaerbaum erzeugen 
Neue Elemente eingeben 
Baum sortiert ausgeben 
Baum unsortiert ausgeben 
Datei mit Baum laden 

Baum in Datei speichern 
Wahl 0-6? O 


oSuruwuvmo 


Ende. 
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Im Unterprogramm 1000 unseres Programms BIBAUM-M erzeugen wir 
einen leeren Binärbaum: In Zeile 1000-1010 werden vier Arrays 
B$(), L(), R() und S() (S brauchen wir zum Sortieren) für ei- 
nen Baum mit maximal 100 Knoten dimensioniert. Dabei hat Kno- 
ten 0 besondere Werte: B$(0) einen großen "Start-Wert', R(0) 
später die Knotenanzahl N. 


3.15.4 Eingeben von Elementen in den Binärbaum 


Mit Unterprogramm 2000 bzw. Menüwahl 2 geben wir acht Artikel- 
nummern ein. Unterprogramm 4000 bzw. Menüwahl 4 zeigt uns, wie 
die Nummern im Baum angeordnet werden: sie werden seriell ge- 
mäß der Reihenfolge der Eingabe gespeichert. Die logische Ver- 
ankerung geschieht nur über die Zeiger für den linken und den 
rechten Nachfolger. 


Das Einsetzen in den Baum läuft in zwei Schritten ab: 

Zunächst wird die Knotenanzahl N um 1 erhöht, um die getippte 
Artikelnummer E$ durch LET B$(N)=E$ hinten anzuhängen (Zeile 
2030). 

Anschließend wird in einer Suchschleife (Zeilen 2040-2100) von 
der Wurzel ausgehend (LET I=0) gefragt, ob rechts eingetragen 
werden soll (2050 IF B$(N)>B$(I) erfüllt) oder aber links (Be- 
dingung nicht erfüllt). Wenn ja, gibt es folgende zwei Fälle: 
Existiert ein rechter Nachfolger (2080 IF R(I)<>0 erfüllt), 
dann wird zu diesem Nachfolger gegangen (LET I=R(I)) und wie- 
der weitergefragt (2100 WEND „ Suchschleife wiederholen). Gibt 
es noch keinen rechten Nachfolger, dann wird die Artikelnummer 
durch Setzen des rechten Nachfolge-Zeigers (2080 LET R(I)=N) 
an diese Stelle -logisch- abgelegt und die Suchschleife been- 
det (LET FLAG = -1 als Flagge). 


Das Eintragen links im Baum vollzieht sich entsprechend. Wir 
“ erkennen die Regel zum Eintragen in den binären Baum: 

- Ein Element tritt nur einmal auf 

- Ein Vater (Wurzel) hat höchstens zwei Söhne (direkte Nach- 

folger). 0 bedeutet "kein Sohn' 

- Der linke Sohn ist alphanumerisch kleiner als der Vater 

- Der rechte Sohn ist alphanumerisch größer als der Vater 
Anmerkung: Der Wert CHR$(126) in B$(0) zeigt sich in der Aus- 
führung zum Programm BIBAUM-M als "scharf s' und bewirkt, daß 
der eigentliche Anfangsknoten B$(1) stets ein linker Sohn des 
Hilfsknotens B$(0) ist. 


Wie unser Ausführungsbeispiel zu Programm BIBAUM-M veranschau- 
licht, wird die später eingetippte Artikelnummer NA391030 phy- 
sisch als 9. Element hinten (auf den Baum bezogen: unten) an- 
gefügt, logisch jedoch über die Verkettung an die Stelle ge- 
setzt, die ihrer ASCII-Codezahl entspricht. 


3.15.5 Binärbaum sortiert ausgeben 


Das unsortierte Ausgeben des Baumes entsprechend der Speicher- 
folge geschieht über eine FOR-Schleife in Unterprogramm 4000. 
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Das sortierte Ausgeben erfolgt nicht gemäß der rein physischen 
Speicherungsfolge, sondern gemäß der logischen Folge, wie sie 
durch die Zeigervermerke gegeben ist. Unterprogramm 3000 zeigt 
dazu die zwei folgenden Schritte. 


Schritt 1: 

Zunächst das Problem 'kleinste Nummer suchen' (hier BO221140, 
die sich ganz links außen befindet).Die Schleife in den Zeilen 
3040-3050 tastet sich vom Stamm ausgehend (I=0) immer weiter 
nach links vor (3050 LET I=L(I)), bis endlich kein linker Sohn 
mehr auftaucht (3040 IF L(I)=0 ist erfüllt), d.h. bis man ganz 
links in der äußersten Ecke angelangt ist, um die nun gefunde- 
ne kleinste Nummer auszugeben (3060 GOSUB 3180). 

Schritt 2: 

Nun kommt das Problem des "Suchens der nächsthöheren Nummer'. 
Diese ist entweder der Vater oder ein rechter Sohn. Ist kein 
rechter Sohn da, so wird der Vater ausgegeben. Ist dagegen ein 
rechter Sohn vorhanden (wie in unserem Fall, wo 3070 IF R(I)=0 
nicht erfüllt ist), geht man zu diesem Sohn (3080 LET I=R(I)), 
um dann erneut mit Schritt 1 in die äußerste linke Ecke voran- 
zuschreiten (3080 GOTO 3040). 


Der rechte Sohn wird als Wurzel eines Teilbaumes aufgefaßt,in 
dem sich das "Suchen der kleinsten Nummer ganz links' genauso 
vollzieht wie im Gesamtbaum. Ist dieses Minimum gefunden, dann 
wird erneut der Vorgang 'Suchen der nächsthöheren Nummer' auf- 
gerufen, ... Ein solches "Aufrufen von sich selbst" nennt man 
Rekurswion (latein: recurrere für zurücklaufen). Höhe- 
re Programmiersprachen wie PASCAL oder ADA sehen hierfür sog. 
rekursive Unterprogramme (Prozeduren) vor, MBASIC dagegen lei- 
der nicht. 

Der in Unterprogramm 3000 benutzte Suchstring S(J) speichert 
die beim "Vortasten' durchlaufenen Knoten (LET J=J+1), um dann 
auf dem gleichen Weg wieder zurückgehen zu können (LET J=J-1). 


3.15.6 Binärbaum als Datei extern ablegen 


Mit dem Programm BIBAUM-M können wir über die Unterprogramme 
5000 und 6000 den Binärbaum als sequentielle Nummerndatei le- 
sen und beschreiben. Zu beachten ist, daß wir dem 1. Datensatz 
als besonderem Satz über R(0) die Knotenanzahl N übergeben. 


Binäre Bäume haben zahlreiche Anwendungen, insbesondere eignen 
sie sich zum Suchen (deshalb die Bezeichnung Suchbäume) und 
zum Sortieren. Das hier wiedergegebene Beispiel gibt einen be- 
stimmt nur sehr vagen Einblick in die breite Palette dieser 
dynamischen Datenstrukturen wieder. 

Bei größeren DV-Systemen ist der Dateizugriff über einen als 
Binärbaum strukturierten Index sehr häufig als Bestandteil des 
Betriebssystems vorgesehen. 
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Codierung zu Programm BIBAUM-M: 


100 REM ====== Programm BIBAUM-M 

110 PRINT "Demonstration: Binaerer Baum als dynamische Datenstruktur." 
111: 

120 REM ====== Vereinbarungsteil 

130 'B$(100) : Maximal 100 Baumelemente bzw. Knoten 

140 'R(): Rechte Soehne als Nachfolger 

150 'L(): Linke Soehne als Nachfolger 

160 'S(): Sucharray als Hilfsvariable beim Sortieren 

170 'N: Anzahl der Baumelemente, in R(O) abgelegt 

180 = L(I),R(I): 3-Felder-Datensatz fuer I. Baumelement in der Datei 
190 Name der sequentiellen Datei zur Speicherung des Baumes 
200 Ei I. 2: Hilfsvariablen 

210 "FLAG: Variable zur Schleifensteuerung (als Flagge) 

220 : 

230 REM ====== Anweisungsteil 

240 PRINT "O0 Ende" 


310 
320 
330 
340 


350 : 


1000 
1010 
1020 
1030 
1040 
1050 
1060 


PRINT "1 Leeren Binaerbaum erzeugen" 

PRINT "2 Neue Elemente eingeben" 

PRINT "3 Baum sortiert ausgeben" 

PRINT "4 Baum unsortiert ausgeben" 

PRINT "5 Datei mit Baum laden" 

PRINT "6 Baum in Datei speichern" 

INPUT "Wahl O-6";Z : PRINT : IF Z=0 THEN PRINT "Ende." : END 
ON Z GOSUB 1000, 2000, 3000, 4000, 5000, 6000 

PRINT : PRINT "Weiter mit RETURN"; : INPUT E$ 

CLS : GOTO 240 


DIM B$(100) 'LEEREM BINAERBAUM ERZEUGEN 
DIM L(100), R(100), S(100) 

LET I=0 "bei Wurzel O beginnen 

LET N=0 "Anzahl der Knoten O 

LET B$(O)=CHR$(126) 'Wurzel mit hohem Codewert 


PRINT "Binaerbaum leer eingerichtet." 
RETURN 


1070 : 


2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 


PRINT N+1;". Element (O=Ende) "; 'NEUE ELEMENTE IN BINAERBAUM EINGEBEN 
INPUT E$ 
WHILE E$<>"'0" 
LET N=N+1 : LET B$(N)=E$ : LET I=0 : LET FLAG=0 
WHILE NOT FLAG 
IF B$(N)>B$(I) THEN 2080 
IF L(I)<>O THEN LET I=L(I) ELSE LET L(I)=N: LET FLAG=-1 
GOTO 2090 
IF R(I)<>O THEN LET I=R(I) ELSE LET R(I)=N: LET FLAG=-1 
WEND 
LET FLAG=0 
PRINT N+1;". Element (O=Ende) "; : INPUT E$ 
WEND 
LET R(O)=N 
RETURN 
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Codierung zu Programm BIBAUM-M (1. Fortsetzung): 


3000 LET I=1 'Index in Array B$() 'BINAERBAUM SORTIERT AUSGEBEN 
3010 LET Z=0 "Rangplatz fuer Sortierung 

3020 LET J-0 "Index in Sucharray S() 

3030 PRINT "Links: Sucharray J,S(J)" : PRINT "Rechts: Knoten Z,B$(I)" 
3040 IF L(I)=0 THEN 3060 

3050 GOSUB 3200: LET I=L(I): GOTO 3040 "linksaussen lesen 

3060 GOSUB 3180 : IF Z=N THEN 3160 

3070 IF R(I)=0 THEN 3090 

3080 GOSUB 3200 : LET I=R(I) : GOTO 3040 "rechts lesen 

3090 IF I<>L(S(J)) THEN 3120 

3100 GOSUB 3220 : GOSUB 3180 : IF Z=N THEN 3160 

3110 GOTO 3070 

3120 IF J<2 THEN 3160 

3130 GOSUB 3220 

3140 IF I<>R(S(J)) THEN 3090 

3150 IF I>1 THEN 3130 

3160 PRINT "Ende des Sortierens." 

3170 RETURN 


3171: 

3180 LET Z=Z+1 'UPRO ELEMENT AUSGEBEN 

3190 PRINT " "zZ;". Element: ";B$(I) : RETURN 

3200 LET J=J+1l 'UPRO IN SUCHARRAY WEITER 

3210 LET S(J)=I : PRINT J;S(J) : RETURN 

3220 LET I=S(J) 'UPRO IN SUCHARRAY ZURUECK 

3230 LET J=J-1 : PRINT J;S(J) : RETURN 

3240 : 

4000 PRINT "Reihenfolge: "; "BAUM UNSORTIERT AUSGEBEN 


4010 PRINT "T,B$(I),L(I),B$(L(I)),RCI),B$CRCI))" 

4020 FOR I=1 TO N 

4030 PRINT 15" ";BSCT)5LCI)5" "5BSCLCT))5RCI) 5" ";B$CRCI)) 
4040 NEXT I 

4050 PRINT "Ende der unsortierten Ausgabe." 

4060 RETURN 


5000 GOSUB 1000 'BINAERBAUM AUS DATEI IN DEN RAM EINLESEN 
5010 INPUT "Dateiname";F$: OPENIN F$+".DAT" 

5020 INPUT #9, B$(0),L(0),R(O) 

5030 LET I=0 : LET N=R(0) 

5040 FOR I=1 TO N 

5050 INPUT #9, B$(I),L(I),R(I) 

5060 NEXT I 

5070 CLOSEIN 

5080 PRINT "Binaerbaum eingelesen." 

5090 RETURN 


5100 : 
6000 INPUT "Dateiname zum Speichern";F$ : "BINAERBAUM EXTERN SPEICHERN 
6010 OPENOUT F$+".DAT" : LET R(O)=N 


6020 FOR I=0 TO N 

6030 PRINT #9, B$(I);","5L(I);",";RCI) 

6040 NEXT I 

6050 CLOSEOUT 

6060 PRINT "Binaerbaum in ";F$;" gespeichert." 
6070 RETURN 
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Programmverzeichnis 


Programme 


A>DIR 

: DREIDIMI 
VOKABELD 
BALKENDI 
SUCHBIN 
SORTDAT2 
DIREKT-S 
INDSEQ-L 
BIBAUM-M 


>, >, >>>>» 


Programme 


A>DIR 

A: VERBRAU 
SKONTOZ1 
SKONTOE2 
KAPITAL2 
RATENSPA 
STANDARD 
TEXTO 
TEXT4 
TEXT8 
ETIKETT 
RATSPIEL 
BILDMASK 
FUELLSTR 
HEXDEZ 
DEZDUAL3 
MODULNEU 


Pp,->->>->>>>>->->>->>»> 


zu den Abschnitten 3.1 bis 3.6: 


BAS 
BAS 


BAS : 


BAS 


BAS : 
BAS : 
BAS : 


BAS 


: DREIDIM2 BAS 
: LAGREGAL BAS 
NAMDATEI DAT 
: SORTDAT1 BAS 
GRUPPDAT BAS 
DIREKT-L BAS 


: ABTABELL BAS : 


MISCHDAT BAS : 


: NUMDATEI DAT : 
: SORTZEIG BAS : 
: DIREKT-M BAS : 
: DIREKT-F BAS : 
INDSEQ-T BAS : 


HELLO2 BAS : 


GERADE 
PARABEL 
TELDATEI 
INDSEQ-S 
DIREKT-A 
SEQUEN-M 
LILIST-M 


zu den Abschnitten 3.7 bis 3.15: 


: DEMO-USI 
: DREIFALL 
: DEMO-UPR 
: BOOLEANI1 
: TEXT1 

: TEXT9I 

: HELLOl 

: RUNDENZA 


: DEZDUAL4 
: DATPEEK 


: PREIS1 
BAS 
BAS 


: ZUFALL 
BAS 
: TEXT5 

: WILDCARD BAS 
2 LANGSAM 
: DUALDEZ BAS 


BAS 


BAS : 
BAS : 
: MWST 
: BENCHMAR BAS : 
BAS : 


: DEZHEX 
BAS : 


KALKULAT BAS : 
SKONTOZ2 BAS 
BAS : 


DEMO-FUN BAS 
TEXT2 BAS : 


TEXT6 BAS 
DATUMINT BAS : 


: BLOCKSAT BAS : 
BAS : 
BAS : 
BAS : 


EINGABEB BAS : 
CHR$-TE BAS : 
ASCII-TE BAS : 
BAS : 


PREIS2  BAS : 


Dateitypen auf der Schneider-Diskette: 


- BAS 
- DAT 


für BASIC-Anwenderprogramm. 
für Daten-Datei. 
für BASIC-Anwenderprogramm, das im ASCII-Format 


DRUCKSTE 


: SKONTOEI1 


KAPITAL1 
FAHRTENB 


: MENUE 
: BOOLEAN2 BAS : 
BAS : 
BAS : 
BAS : 


BOOLEAN3 
TEXT3 


: TEXT7 


DATUMPRU 
GEHEIM 

CURSORPO 
DEMO-PRI 
DEZDUAL1 
DEZDUAL2 
MODULALT 


abgelegt wurde (mit SAVE "MODULNEU",A). 


BAS 
BAS 
DAT 
BAS 
BAS 
BAS 
BAS 


BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
BAS 
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Sachwortverzeichnis 


A (Laufwerk) 106 

ABS 98 

Abweisende Schleife 134 
ADA 50 

Adresse 33 

Adreßbus 70 

Adreßfeld 13 
Adreßrechnung 38 257 
AFTER 98 

Ändern (Datei) 41 
Aktuelles Laufwerk 106 
Algol 50 

Algorithmus 41 
Algorithmischer Entwurf 30 58 
Alternativstruktur 31 
ALU 7 

AMSDOS 111£ 

AND 161 193 

Anlegen (Datei) 41 
Anweisungsarten 35 
Anweisungsteil (Programm) 35 
Anwenderdiskette 90 
Anwenderprogramm 24 55£ 
APL 50 

Arbeitsspeicher 8 

Array 26 95 209£ 

ASC 98 165 175 188 
ASCII-Code 107 188 206 
ASM 103 

Assembler 48 50 
Aufzählungstyp 28 
Ausführung (Programm) 119 
Ausgabegerät 5 
Auswählen (Datei) 41 
Auswahlstruktur 30 127£ 
AUTO 98 

Automat 8 45 

A-Option (SAVE) 206 


B (Byte) 12 

Back-Up 16 

Balkencode 7 

BAS 103 294 

BASIC 28 50 93£ 
BASIC-Maschine 46 
Bedingte Verzweigung 128 
Befehlsbus 70 

Befehl (CP/M) 104 
Benchmark-Test 141 
Bentzerdefinierter Typ 28 
Bereich 26 211 
Bereitschaftszeichen 79 
Betriebssystem 25 45f£ 113£ 
Bewegen (Datei) 41 
Bildschirmmaske 182 


Binärbaum 27 285£ 
Binärkonstante 94 
Binärzeichen 9 189 
Binäres Suchen 225 

BIN$ 98 

BIOS 52 

Bit 9 

Bitmuster 9 194 
Bitparallele Aufzeichnung 12 
Bitserielle Aufzeichnung 12 
Bitweise Verarbeitung 193 
Bit-Struktur 73 

Block 12 108 
Blockdiagramm 56f 

BOOLEAN 25 160 

Boolesche Variable 160f 
BORDER 98 

Bps 12 

Brainware 3 
Branchenlösung 66 
BTX-Netz 21 

Bubble Memory 6 

Bubble Sort 231 

Bus 69 

Byte 10 


E50 

CALL 98 200 
Cartridge-Tape-Streamer 16 
CAT 89 98 
Centronics-Schnittstelle 15 
CHAIN 98 205 

Char 25 

Character 36 

Chip 8 68 

CHR$ 98 165 

CINT 98 

CLEAR 98 

CLG 98 

CLOSEIN 98 246 

CLOSEOUT 98 246 

CLS 98 181 

CMC-7-Schrift 7 

Cobol 50 

Codasyl 44 

Codierung (Programm) 55 119 
COM (Ausgabeform) 5 

COM (Dateityp) 103 

Compiler 48 

CONT 98 

CON: 109 

COPYDISK 110 

CPU 2 7 

CP/M-Betriebssystem 52 103f 
Cursor 76 79 

CVD CVI CVS 252 


296 


Sachwortverzeichnis 


DATA 98 

Datei 23 36f 

Dateiname 103 
Dateiverkettung 43 
Dateiverwaltungssystem 43 64 
Datei-Programmpaket 65 
Daten 2 22£ 

Datenbank 36 43f 
Datenbank-Maschine 45 
Datenbus 69 
Datenerfassung 5 17£ 
Datenfeld 13 36 249 
Datenflußplan 56 
Datenmanager 64 
Datenredundanz 43 
Datensammelsystem 18 
Datensatz 36 
Datensatz-Beschreibung 249 
Datensicherung 16 
Datenstrukturen 23f£ 
Datenträger 2 
Datentypen 23 25£ 
Datentyp "boolean" 25 
Datenverkehr 42 241 251 
Datex 21 

aBASE 113 

DDL 43 

DEFINT, DEFREAL 95 
DEFSTR 95 

DEF FN 98 150 

DEF USR 200 

Deklaration 34 

DELETE 98 

Dezentrale Erfassung 17 
Dezimal 189 

DI 98 

Dialoggerät 5 
Dialogprotokoll 30 
Dienstprogramm 24 

DIM 95 98 210 

Digital Research 53 

DIR 105 

Directory (Diskette) 47 103 
Direkte Adressierung 257 
Direktzugriff 37 
Direktzugriffs-Datei 40 247£ 
DISCCOPY 110 

Diskette 6 13 
Disketten-BASIC 113 
Disketten-Formate 114 
DML 43 

DOC 103 

Dokumentation 125 

DOS 24 53 

DRAW 98 221 
Dreieckstausch 229 
Drucker 14 
Druckersteuerung 186 


Drucker-Spooling 21 
Dual-System 9 

Dynamischer Datentyp 27 
Dynamische Dimensionierung 212 


EAN-Code 7 
EBCDI-Code 10 11 
EDIT .98 

Editor 24 81 

EI 98 

Eingabegerät 5 
Einseitige Auswahl 129 
ELAN 50 

ELSE 7 

END 98 

ENT 98 
Entwurfsprache 30 58 
EOF 42 98 

EPROM 73 

ERA 106 

ERASE 98 

ERL, ERR 98 204 
ERROR 98 204 
Ethernet 21 
EVA-Prinzip 121 
EVERY 98 

EXP 98 
Exponentialdarstellung 80 
Externer Datenbus 70 
Externer Speicher 5 
E-13-B-Schrift 7 


Fallabfrage 132 
False 160 
Fehlerbehandlung 204 
Feld 209£ 

Festplatte 6 

Field 36 

FIELD 254 

File 26 36 239£ 
Filter (Bit) 194 
Firmware 2 67f 

Fix 99 152 

Flagge 173 
Folgestruktur 29 119 
FOR 99 142 

FORMAT 108 
Formatierte Daten 22 
Formatierung 13 90 
Formatierung (Ausgabe) 185 
Formatstring 186 
FORTH 50 

FORTRAN 50 

FRE 99 196 
Füllstring 184 
Funktion 150 


Sachwortverzeichnis 
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Gap 12 14 

Gekettete Liste 271 275 
General-Purpose-Computer 18 
Geschlossene Schleife 145 
Gestreute Speicherung 37 
GET# 252 

Gigabyte 71 

GOSUB 99 148 

GOTO 99 

Grafik 217£ 
Grafik-Programmpaket 65 
Großcomputer 19 
Gruppenwechsel 42 235 


Hand-Held-Computer 20 
Hardware 2 4f 
Hardsektorierung 14 
Hauptspeicher 7 9 33 
Hexadezimal 10 94 189 
Hex-Dez-Umwandlung 199 
HEX$ 99 192 
Hierarchische Datenbank 44 
HIMEM 99 

Homecomputer 20 

Host 45 53 


I (IBM-Format) 109 114 

IC 8 67£ 

IEC-Bus 15 

IF-THEN-ELSE 99 128 
Impact-Drucker 14 

Index (Array) 211 286 
Indexdatei 38 261f 
Indexloch 14 

Indextabelle 266 
Index-sequentielle Datei 261 
Indirekte Adressierung 258 
Individuelle Software 62 
Indizierte Speicherung 38 
Information 9 

Information Retrieval 45 
Inhouse Netz 21 

INK 99 

INKEY$ 99 

INPUT 99 121 

INSTR 99 

INT 99 138 152 

Integer 25 93 

Integrierte DV 66 
Interface 15 

Interpreter 48 

ISDN-Netz 21 

Iteration 31 

I/o 69 


Jackson-Methode 59 
Joker-Zeichen 105 
JOoY 99 


JOYCE 249 


Kaltstart 104 

Kassette 6 12 

KB (Kilobyte) 12 108 
Kette 39 

KEY 99 

Key-Random-Datei 261 
Klarschrift 14 
Klarschriftbeleg 6 
Klassifizieren (Datei) 41 
Klassifizierender Begriff 258 
Kluft 12 

Knoten 286 
Kommandosteuerung 62 
Kompatibilität 19 
Konstante 34 93 120 

Knoten 3 

Künstliche Intelligenz 4 51 


Laden 93 

LAN 21 

Laufvariable 140 
Leerstring 167 

LEFT$ 99 165 

LEN 99 165 

Lesen (Datei) 37 254 
LET 99 122 

Lineares Programm 29 119 
LINE INPUT 99 

Linked List 275 

LISP 51 

LIST 99 

Liste 211 277 

LIST #8 124 

LOAD 99 

LOCATE 99 181 
Lochkarte 6 

Löschen (Datei) 106 
Logging 16 
Logik-Baustein 68 
Logische Operation 161 193 
Logische Ordnung 39 
Logo 51 

Lokales Netz 21 

LSET 252 

LST: 109 


Magnetband 6 12 
Magnetplatte 6 
Magnetschriftbeleg 6 
Mainframer 20 

Mallard BASIC 198 
Markierungsbeleg 6 
Maschinensprache 48 
Maske (Bildschirm) 182 
Maske (Bit) 194 

Maske (PRINT USING) 186 


298 


Sachwortverzeichnis 


Massenspeicher 13 
Master 21 

Matrixdrucker 15 

MAX 99 

MB 12 

MBASIC 113 198 249 261 
Mehrseitige Auswahl 131 
MEMORY 99 
Menüsteuerung 62 241 
Menütechnik 60 157 
Menware 3 

MERGE 99 205 

Merker 173 

MID$ 99 165 
Mikrocomputer (Aufbau) 69f 
Mikroprozessor 69 
Mikrotechnologie 3 

MIN 99 

Mips 71 

Mischen (Daten) 41 
Mischen (Programme) 205 
Mischverfahren 234 
Mixed Hardware 16 

MKI$, MKS$, MKD$ 252 
Mobile Datenerfassung 18 
MODE 85 99 

Modul 3 

MODULA 51 
Modularisierung 59 
Modus (Betriebsart) 88 
MOVE 99 

MS-DOS 53 

Multi-User 20 22 
Multi-Tasking 20 22 


'NAME 30 

Nanosekunde 3 

Netzwerk 21 

NEW 87 99 

NEXT 99 

Numerischer Vergleich 132 


Objektprogramm 48 
OCR-Schrift 6 


ODER 9 

Öffnen (Datei) 42 193 
OEM 16 

Offene Schleife 145 
oOff-line 5 


ON BREAK 99 

ON ERROR 99 204 
ON-GOSUB 99 150 157 
ON-GOTO 99 133 

On-line 5 

OPENIN, OPENOUT 99 246 
Operatoren 96 

Optische Platte 7 

OR 161 


Ordnungsdaten 22 
Ordnungsbegriff 258 
Orgware 3 

ORIGIN 99 221 

0S 24 

OUT 99 

Overlay 61 250 


PAP 57 

PAPER 100 

Paralleles Interface 15 
Parameter 148 

Pascal 51 

PEEK 100 196 

PEN 100 

Peripherie 4 69 
Personalcomputer 19f 
Physisch löschen 243 
Physische Ordnung 39 
PI 100 

PILOT 51 

Pin 15 65 

PIP 109 

Pixel 219 

PLOT 100 

PL/1 51 

Pointer 230 

POKE 100 198 
Portabilität 54 
Portable 20 

POS 100 183 
POS-System 18 
Primärindex 267 
PRINT 100 

PRINT USING 185 
Problemanalyse 55 


Problemorientierte Sprache 48 


Programm 2 35 
Programmablaufplan 57 
Programmausführung 86 120 
Programmeingabe 85f£f 124 
Programmentwicklung 55£ 
Programmgenerator 61 
Programmiersprache 48 55f£ 
Programmiertechnik 59 
Programmierung 58 119 
Programmlauf 77 
Programmstrukturen 25 
Promptzeichen (Ready) 79 
Prozedur 33 

Prozessor 73 

Pseudocode 30 49 

P-Code 49 

Puffer (Datei) 253 

PUT# 251 


Quellcode 49 
Quellenprogramm 48 
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RAD 100 SPEED 100 

RAM 10 68 87 Speicherplatz 33 

RANDOMIZE 100 Speicherprogrammierung 8 

READ 100 Speicher-Baustein 68 

READ-DATA 100 157 Spielprogramm 66 

Ready 79 Spooling 21 

Real 25 93 Spread Sheet 63 

Rechenzentrum 19 Sprungadresse 129 

Rechnende Datenbank 45 Spur 13 108 

Record 26 SOR 100 

Redundanz 44 SWAP 229 

Rekursion 28 Suchverfahren 225 

Register 70 SYS 103 

Relationale Datenbank 45 Systemprogramm 24 

RELEASE 100 System-Konfiguration 19 

REM 100 

REN 107 Schachtelung 32 145 

RENUM 100 206 Schleife 31 134£ 

Repeat-Untiil 136 Schließen (Datei) 42 193 

Repetition 31 Schlüsselfeld (Index) 38 

Reservierte Worte 94 98 Schlüsselwort 98 

RESTORE 100 Schneider-BASIC 249 

RESUME 100 204 Schneider-Format 108 114 

RETURN 100 Schnittstelle 15 65 

RIGHT$ 100 165 Schreiben (Datei) 37 254 

RND 100 138 Schreibtischtest 203 

ROM 2 10 68 Schrittplan 126 

ROM-BASIC 249 Schrittweise Verfeinerung 61 

ROM-Modul 67 

Root 286 Stammdaten 22 

ROUND 100 Standardisierung 158 

RUN 86 100 250 Standard-Funktion 150 

Runden 185 Standard-Software 62 
Stand-alone-System 16 18 22 

SAVE 88 100 124 STAT 110 

Scanner 7 18 Statischer Datentyp 27 

Screen Editing 63 Steuerprogramm 24 

Scrolling 63 Steuerzeichen 141 

Sektor 13 108 STOP 100 

Sekundärindex 267 Streaming 13 16 

Selektion 31 String 82 93 

Sequentielle Datei 40 239 String-Verarbeitung 164f 

Sequentieller Speicher 37 String-Array 26 212 

Serielle Speicherung 37 STRING$ 165 168 

Serielles Interface 15 Struktogramm 30 57 128£ 

Set 26 Strukturierte Programmierung 61 

SGN 100 STR$ 165 

Small Business Computer 19_ Systemdiskette 90 

Softsektorierung 13 

Software 2 22£ TAB 183 

Software-Bausteine 32 Tabellenkalkulation 63 

Software-Engineering 59 Tabellenverarbeitung 209f 

Software-Qualitätssicherung 63 TAG 100 

Sortieren (Datei) 170 Takt 71 

Sortierverfahren 228 Teachware 3 

Sortierte Verarbeitung (Datei) TEST 100 

SPACE$ 100 39 Textdaten 23 82 


Spalte (Array) 214 Textverarbeitung 164f 
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Textverarbeitung (Tool) 64 
Textvergleich 132 
Thermodrucker 15 

TIME 100 138 
Tintenstrahldrucker 15 
Top-Down-Entwurf 60 
Tracelauf 203 

Track 108 

Transienter Befehl 105 
TRON, TROFF 100 203 
True 160 
Turn-Key-System 63 
TYPE 107 
Typenraddrucker 15 


UCSD-Betriebssystem 49 53 
Übersetzerprogramm 24 
UND (logisch) 9 161 

UNIX 53 

UNT 100 

Unterbereichstyp 28 
Unterprogramm 31 148 242 
Unterprogrammtechnik 60 
UPPER$ 100 

Urbeleg 17 

Utility 24 


VAL 100 165 

Variable 34 76 120 
Variablenliste 125 
VARPTR 197 

VDOS (Betriebssystem) 114 
Vektor 26 211 
VENDOR-Format 109 
Verbund 26 

Verdichten (Daten) 235 
Verdichten (Datei) 41 
Vereinbarung 34 95 


Sachwortverzeichnis 


Wahrheitswert 161 

Warmstart 104 

Wechselplatte 6 

WHILE 100 134 193 

WIDTH 183 
Wiederholungsstruktur 31 134£ 
wildcard 105 172 
Winchesterplatte 6 

Wortbreite 70 

Wurzel 286 


zählerschleife 143 

Zeichen 9 
Zeichenkettendaten 22 
Zeiger 38 274 
Zeigersortieren 230 
Zeigerverkettete Liste 275 
Zeile 214 

Zufallszahl 138 
Zugriffsart (Datei) 37 
Zugriffseinheit 13 

Zuse 3 

Zuweisungszeichen = 122 
Zweiseitige Auswahlstruktur 127 
2-80 Prozessor 72 113 
Zylinder 


105 
(PRINT) 80 
(wildcard) 105 173 
(Zuweisung) 122 
(wildcard) 172 
(Befehlstrennung) 123 
8 (Drucker) 124 
(Stringverkettung) 165 
(Trennungszeichen) 183 
(Trennungszeichen) 183 
(PRINT USING) 186 


en + Re I 1 VV % 


+ 


Vereinbarungsteil (Programm) 35 & (Hex) 198 


Verkettete Datei 40 271 
Verkettete Liste 275 
Verkettetes Programm 250 
Verkettete Speicherung 39 
Verzweigung 128 
Verzweigungstechnik 160 
Videocomputer 20 


Vorbereitungsteil (Schleife) 


Vortex-Diskettenformat 114 
V.24-Schnittstelle 15 
VPOS 100 


Disketten 


Ergänzend zum Buch sind Disketten mit jeweils 86 Programmen und 
3 Dateien in zwei Formaten lieferbar: 


e Eine Diskette 3°: Schneider-Format, 40 Spuren, Diskette beidseitig 
beschrieben. 


© Zwei Disketten 5.25’: Schneider-Format, 40 Spuren, jede Diskette 
einseitig beschrieben. 


Programme zu den Abschnitten 3.1 bis 3.6: 


A>DIR 

A: DREIDIMl BAS : DREIDIM2 BAS : ABTABELL BAS : GERADE BAS 
A: VOKABELD BAS : LAGREGAL BAS : MISCHDAT BAS : PARABEL BAS 
A: BALKENDI BAS : NAMDATEI DAT : NUMDATEI DAT : TELDATEI DAT 
A: SUCHBIN BAS : SORTDATl BAS : SORTZEIG BAS : INDSEQ-S BAS 
A: SORTDAT2 BAS : GRUPPDAT BAS : DIREKT-M BAS : DIREKT-A BAS 
A: DIREKT-S BAS : DIREKT-L BAS : DIREKT-F BAS : SEQUEN-M BAS 
A: INDSEQ-L BAS : INDSEQ-T BAS : HELLO2 BAS : LILIST-M BAS 
A: BIBAUM-M BAS 


Programme zu den Abschnitten 3.7 bis 3.15: 


A>DIR 

A: VERBRAU BAS : DEMO-USI BAS : KALKULAT BAS : DRUCKSTE BAS 
A: SKONTOZ1 BAS : PREISI  BAS : SKONTOZ2 BAS : SKONTOEl BAS 
A: SKONTOE2 BAS : DREIFALL BAS : MWST BAS : KAPITAL1 BAS 
A: KAPITAL2 BAS : ZUFALL BAS : BENCHMAR BAS : FAHRTENB BAS 
A: RATENSPA BAS : DEMO-UPR BAS : DEMO-FUN BAS : MENUE BAS 
A: STANDARD BAS : BOOLEANI BAS : BOOLEAN2 BAS : BOOLEAN3 BAS 
A: TEXTO BAS : TEXTI BAS : TEXT2 BAS : TEXT3 BAS 
A: TEXT4 BAS : TEXT5 BAS : TEXT6 BAS : TEXT? BAS 
A: TEXT8 BAS : TEXT9  -BAS : DATUMINT BAS : DATUMPRU BAS 
A: ETIKETT BAS : WILDCARD BAS : BLOCKSAT BAS : GEHEIM BAS 
A: RATSPIEL BAS : HELLOl BAS : EINGABEB BAS : CURSORPO BAS 
A: BILDMASK BAS : LANGSAM BAS : CHR$-TE BAS : DEMO-PRI BAS 
A: FUELLSTR BAS : RUNDENZA BAS : ASCII-TE BAS : DEZDUAL1 BAS 
A: HEXDEZ  BAS : DUALDEZ BAS : DEZHEX BAS : DEZDUAL2 BAS 
A: DEZDUAL3 BAS : DEZDUAL4 BAS : PREIS2 BAS : MODULALT BAS 
A: MODULNEU : DATPEEK BAS 


Alle Programme dieses Buches auf Diskette 


Das Buch „BASIC-Wegweiser für Schneider CPC” von Ekkehard Kaier 

enthält einen kompletten BASIC-Programmierkurs. Wir bieten Ihnen 

eine 3”- und zwei 5 1/4"-Disketten an, auf denen alle 86 Programme. 

und 3 Dateien sofort zur Verfügung stehen. Sie ersparen sich das Eintip- 

pen der Programme und können sie sofort testen bzw. Ihren Wünschen 
entsprechend modifizieren. 


BASIC-Programmierkurs-Disketten-Set 
für Schneider-CPC-Computer 
 3”-Diskette DM 68,- 
zwei 5 1/4”-Disketten DM 68,—- 


Bitte notieren Sie Ihre Bestellung auf der Rückseite! 


Verlag Vieweg - Postfach 5829 - 6200 Wiesbaden 


BASIC 
Programmierkurs-Diskette 
für Schneider CPC 


Bitte senden Sie mir über die Buchhandlung 

Expl. 3”-Diskette zum 

Verkaufspreis von je DM 68,- 128/02757 
—____ Expl. 51/4"-Disketten-Set 

Verkaufspreis von je DM 68,- 128/02734 
[D Scheck anbei (versandkostenfreil 
[[] gegen Rechnung [zuzüglich Versandkosten! 


Name / Anschrift: 


Datum/Unterschrift 


Bitte 
freimachen! 


Friedr. Vieweg & Sohn 
Verlagsgesellschaft mbH 
Postfach 5829 


D-6200 Wiesbaden 1 


BASIC-Wegweiser für Schneider CPC 


Datenverarbeitung mit Schneider BASIC bzw. MBASIC unter AMSDOS, CP/M und 
MS-DOS 


von Ekkehard Kaier 


Dieses Buch führt zum erfolgreichen Einsatz von Computern der Schneider CPC-Familie 
(wie CPC 464, CPC 664 und CPC 6128): 
e Aktuelles Grundlagenwissen in Abschnitt 1: 
Was ist Datenverarbeitung bzw. Informatik und welche Probleme lassen sich mit 
dem Schneider CPC lösen? 
© Erste Bedienungsanleitung in Abschnitt 2: 
Wie bedient man den Schneider CPC unter Betriebssystemen AMSDOS, CP/M bzw. 
MS-DOS? 
© Kompletter Programmierkurs in Abschnitt 3: 
Welche Möglichkeiten bietet Schneider BASIC zur Verarbeitung der grundlegen- 
den Programmstrukturen? Wie löst man Probleme mit Strings, Arrays, Ein-/Aus- 
gabe, Grafik, Sortierverfahren, Dateien, Listen und Binärbäumen? 
86 Programme, 3 Dateien, 32 PAPs mit Struktogrammen und 119 Abbildungen geben 
einen informativen Überblick. 


Dr. Ekkehard Kaier, Heidelberg, ist nach 15 Jahren DV-Praxis heute in der Ausbildung 


tätig. 
: Software 
Grundlagen BEIGIEIG Programmierung mE 
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programmierer 
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